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

你的数据是从那来的，如何试？

还是整理下思路吧

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

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

bbbbbbb
皮试阴性

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

按你代码说代码：
1、看代码，czd(i)本应是字符型的，为什么还要加str()?
2注意以下代码, i 的取值问题,如:当i=10 时,你确保czd(10)的值是字符型值吗?(有可能前面的代码根本就没有赋czd(10)的值)
for i=1 to 10
  thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错！
endfor

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
错出在你这个czd(i+1)=mline(....value,i)
这样的话，czd[1]是没有赋值的，i为1时，你把第一行赋给了czd中的第i+1个元素，即czd[2]。czd[1]仍为逻辑值.F.

再次更改以上代码为：
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。
结果还是出现错误：***操作符/操作数类型不匹配*****

回复17楼：
我先在以下代码加入了 ？   czd(i)测试

if i<>psline
         czd(i+1)=mline(thisform.edit1.value,i)
    ？   czd(i)
   endif  
结果是我要的数。没错。
只是执行到这行就出错。thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+czd(i)  ***这行出错！


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

我把数据上传，看看有哪位大师能帮忙解决。