主题：控件集合

    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