以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请帮忙，谢谢。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97538)
--  作者：jncoser
--  发布时间：2017/3/14 12:35:00
--  请帮忙，谢谢。
Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim pm As WinForm.ComboBox = e.Form.Controls("品名")
Dim qrq As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim qyd As WinForm.ComboBox = e.Form.Controls("起运地")
Dim ydd As WinForm.ComboBox = e.Form.Controls("运达地")

Dim ss As String() = {"lb","pm","qrq","ydd","yd" }
For  i As Integer = 0 To ss.Length - 1
If ***** = ""  Then
MessageBox.Show(ss(i))
Exit For
End If
Next

请问星部分代码如何写？
控件操作可以动态组合吗？
我试过 ss(i) & ".value" 不对,把ss(i)附给字符串变量 字符没有.valuet属性
求解。谢谢。
--  作者：有点蓝
--  发布时间：2017/3/14 14:57:00
--  

还是不如这样

 


Dim ss As String() = {"类别","品名","起始日期","起运地","运达地" }
For  i As Integer = 0 To ss.Length - 1
    If e.Form.Controls(ss(i)).value Is Nothing  Then
        MessageBox.Show(ss(i))
        Exit For
    End If
Next
--  作者：jncoser
--  发布时间：2017/3/14 15:30:00
--  
哦。。。谢谢 明白了。
e.Form.Controls(ss(i))
这样的写法。
谢谢 谢谢