我的要求是这样的：
  排序前样子
   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 编辑 ]

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

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

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

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

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

总说thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i)) ***这行出错。

就是把当前编辑框的内容先赋给数组，然后清空，重新把数组的内容赋给编辑框。思路没问题。关键还是那行出错的原因找不到。编辑框的内容随便给几行就行。没有特别要求。

在表单中建一个编辑框，一个命令按钮。编辑框的内容随便给,内容中可能有空行如：
aaaaaaa

bbbbbbb
皮试阴性

ccccccc
要求达到：皮试阴性放在第一行，并删除空行就行。如下
皮试阴性
aaaaaaa
bbbbbbb
ccccccc

再次更改以上代码为：
thisform.edit1.value=''
for i=1 to 3
  thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错！
endfor
每次我的数据最少有五项之多。但为了测试我只for i=1 to 3。
结果还是出现错误：***操作符/操作数类型不匹配*****