这是你的代码:
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) 没有赋值,就出错了