Question

VB中,有15个txt控件,判断如果第一个是空的就将内容写在text1里,如果不是就向下判断

VB中，有15个text控件组，判断如果第一个是空的就将内容写在text1里，如果不是就向下判断.在图片中红色地方写字点后面的添加后自动向上面的空白的货号，数量里添加。如果第一个有内容择向下一个里面添，…………谢谢大侠！！

Answer 1

For i = 1 To 15 
If Controls("text" & i).Text = "" Then Controls("text" & i).Text = "要输入的内容"
Next i

Answer 2

设置一个控件组
为text1（）
for i = 1 to 15
if text1(i).text="" then判断是否为空
text1(i).text=text2.text '为空则添加进去
exit for '同时也要切断循环 否则会出错
endif
next i