回复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 编辑 ]

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

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