。。。

[ 本帖最后由 bccn0906 于 2014-1-17 14:52 编辑 ]

这是你的代码:
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)=mline(thisform.edit1.value,i)         
   endif      
    endif
endfor
*!*    thisform.edit1.value=mline(thisform.edit1.value,psline)
thisform.edit1.value=''
for i=1 to 3
   thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+czd(i)
endfor  
----------------
据你的代码，发现第3行是有 '皮试阴性' 的，所以 czd(3) 没有赋值，就出错了

示例
（也可以用临时表）

可以用这代码：
str1=thisform.edit1.value
zline=memlines(str1) &&编辑框总行数
str3=''
str4=''
FOR  i=1 TO  zline  &&把皮试阴性的放在前面
    str2=mline(str1,i)
    IF  '皮试阴性' $str2
        str3=str3+chr(13)+chr(10)+str2
    ELSE
        IF NOT EMPTY(str2)
            str4=str4+chr(13)+chr(10)+str2
        ENDIF
    ENDIF
ENDFOR
thisform.edit1.value=str3+str4
thisform.edit1.value=SUBSTR(thisform.edit1.value,3) &&去丢第1个 chr(13)+chr(10) 两字符

哈哈，这问题总鼻被大师破了。