我的要求是这样的：
  排序前样子
   aaaaaaaaa
  
    bbbbbbbbb
    皮试阴性

   dddddddddd
要求达要排序后的样子是
   

   皮试阴性
   aaaaaaaaa
   bbbbbbbbb   
   dddddddddd

代码是：dimension czd(20) expression &&定义处置单数据储存数组
zline=memlines(thisform.edit1.value) &&编辑框总行数
psline=atline('皮试阴性',thisform.edit1.value)  &&查'皮试阴性'所在行

*!*    czd(1)=mline(thisform.edit1.value,psline)
for i=1 to zline
   if !empty(mline(thisform.edit1.value,i))
    if i<>psline
         czd(i+1)=mline(thisform.edit1.value,i)         
   endif      
    endif
endfor
thisform.edit1.value=mline(thisform.edit1.value,psline)
for i=1 to 10
   thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错！
endfor

[ 本帖最后由 jxwjlx 于 2014-1-16 21:52 编辑 ]

思路：
1.利用数据表
2.利用二维数组

我这样不也是可以吗？我是想   thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错的原因。

请问，这样赋值错在什么地方？

出错提示信息？

thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  
改为
thisform.edit1.value=thisform.edit1.value+str(czd(i))+chr(13)+chr(10)  
试试

我开始改为thisform.edit1.value=thisform.edit1.value+str(czd(i))也不行。

thisform.edit1.value=mline(thisform.edit1.value,psline)
改为
thisform.edit1.value=''
试试

按照楼主的方法结果是什么

要不你在表单中添加一个编辑框、一个命令按钮试试如何？看看结果

thisform.edit1.value=''这果我也试过。