Question

text1 的数据用vb怎么编写有条件拷贝到text2

text1窗口 的数据为
01 02 08 11 18 26
01 04 06 09 12 33
.......
当判断 text1 的数据仅为一行时,拷贝该行数据到text2窗口中(必须是可以累加的)

Answer 1

这是双色球的投注号码吗?
如果数据格式固定,你只需使用LEN(text1.text)函数,判断其值是否为 17 即可.
if len(text1.text)=17 then text2.text=text2.text & text1.text & chr(10) & chr(13)'将text1中的数据拷贝到text2中并回车换行,下次即可在下一行中写入数据.

Answer 2

你指的累加是text2的累加吗?
用 &
如text2.text=text2.text&text1.text

Answer 3

用vb常数 vbCr 判断text1的文本里是否有回车符，如果没有的话，说明text1里的数据仅为一行，则进行复制

text2.Text=text2.Text & text1.Text