以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控件集合  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49619)
--  作者：发财
--  发布时间：2014/4/21 15:12:00
--  控件集合

    Dim kjmc() As String \'控件名称
    Dim kjmcjh As String = "验收人,复核人,付款人,收款员" \'控件名称集合
    kjmc = kjmcjh.Split(",")
    For i As Integer=0 To kjmc.Length-1
        If kjmc(i) = Nothing Then
            MessageBox.Show(kjmc(i) & "不能为空,请检查")
            e.Form.Controls(kjmc(i)).Select
        End If
    Next

上述代码不起作用？
  

--  作者：Bin
--  发布时间：2014/4/21 15:17:00
--  
你想实现什么功能?
--  作者：lsy
--  发布时间：2014/4/21 15:26:00
--  

    Dim kjmc() As String = "验收人,复核人,付款人,收款员".Split(",")
    For i As Integer = 0 To kjmc.Length - 1
        If e.Form.Controls(kjmc(i)).Value = Nothing Then
            MessageBox.Show(kjmc(i) & "不能为空,请检查")
            e.Form.Controls(kjmc(i)).Select

            Return
        End If
    Next

[此贴子已经被作者于2014-4-21 15:27:59编辑过]
--  作者：发财
--  发布时间：2014/4/21 15:36:00
--  

太好了！