主题：新手学习中，在练习中找不到相关资料

此主题相关图片如下：qq截图20160802114728.png

 

填入值比如 100

 

点输入  3个文本框都填入100

 

 

代码怎么写？

e.Form.Controls("TextBox1").Text = e.Form.Controls("TextBox2").Text

谢谢解决

 

e.Form.Controls("TextBox1","TextBox3").Text = e.Form.Controls("TextBox2").Text

 

必须分开写吗？

 

能不能代码简化一点？

如果两三就分开写。
如果好多好多，就这样写：

Dim nms() as string  = {“TextBox4”, “TextBox5”, "TextBox6”, "TextBox7"}
For each nm As string in nms
    e.Form.Controls(nm).Text = e.Form.Controls("TextBox2").Text
next