请教一个关于edit控件问题

hytizj023 发布于 2023-06-20 18:04， 703 次点击

只有本站会员才能查看附件，请登录

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

3 回复

cssnet2023-06-20 18:29

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

是这样吗？

hytizj0232023-06-20 18:40

回复 2楼 cssnet

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

吹水佬2023-06-20 19:46

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