主题：控件集合

    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

上述代码不起作用？
  

    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

太好了！