text1 的数据用vb怎么编写有条件拷贝到text2
来源:百度知道 编辑:UC知道 时间:2024/05/28 12:37:02
text1窗口 的数据为
01 02 08 11 18 26
01 04 06 09 12 33
.......
当判断 text1 的数据仅为一行时,拷贝该行数据到text2窗口中(必须是可以累加的)
01 02 08 11 18 26
01 04 06 09 12 33
.......
当判断 text1 的数据仅为一行时,拷贝该行数据到text2窗口中(必须是可以累加的)
这是双色球的投注号码吗?
如果数据格式固定,你只需使用LEN(text1.text)函数,判断其值是否为 17 即可.
if len(text1.text)=17 then text2.text=text2.text & text1.text & chr(10) & chr(13)'将text1中的数据拷贝到text2中并回车换行,下次即可在下一行中写入数据.
你指的累加是text2的累加吗?
用 &
如text2.text=text2.text&text1.text
用vb常数 vbCr 判断text1的文本里是否有回车符,如果没有的话,说明text1里的数据仅为一行,则进行复制
text2.Text=text2.Text & text1.Text