我要实现图上的效果，就是将edit1的值，打印到edit2并提行
下面这个代码就只能显示最后一条记录
ab=ALLTRIM(thisform.edit1.Value)
For i = 1 to ALines(aaa, '&ab', 1+2+4, ',')
thisform.edit2.Value=aaa[i]
ENDFOR

lcText = ""
ab=ALLTRIM(thisform.edit1.Value)
For i = 1 to ALines(aaa, '&ab', 1+2+4, ',')
lcText = lcText + aaa[i] + 0h0D0A
ENDFOR
thisform.edit2.Value = lcText


是这样吗？

是这样，你是不是去拿的老想你了的代码

“,”变换行就可以
thisform.edit2.Value = STRTRAN(thisform.edit1.Value, ",", 0h0D)