以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这样写不行吗？如何改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147235)
--  作者：hongye
--  发布时间：2020/3/12 12:19:00
--  这样写不行吗？如何改？
Dim L1 As WinForm.Label = e.Form.Controls("L客户")
Dim L2 As WinForm.Label = e.Form.Controls("L客户担当")
Dim L3 As WinForm.Label = e.Form.Controls("L类别")
Dim L4 As WinForm.Label = e.Form.Controls("L品名")
Dim L5 As WinForm.Label = e.Form.Controls("L款号")
Dim L6 As WinForm.Label = e.Form.Controls("L样衣款号")
Dim L7 As WinForm.Label = e.Form.Controls("L报价数量")
For i As Integer = 2 To 8
    MessageBox.Show("L" & i-1.name)
Next
这样写不行吗？如何改？
--  作者：狐狸爸爸
--  发布时间：2020/3/12 12:52:00
--  
dim ss() as String = {"L客户","L客户担当","L类别","L品名"}
For each s As string in ss
    MessageBox.show( e.Form.Controls("L报价数量").Name)
next
--  作者：hongye
--  发布时间：2020/3/12 13:16:00
--  
用定义不行吗？
--  作者：有点蓝
--  发布时间：2020/3/12 13:49:00
--  
不行，变量名称不能使用字符串替代的