主题：列集合问题

Dim kjmc() As String = "学生姓名,户籍省".Split(",")
For i As Integer = 0 To kjmc.Length - 1
    If e.Form.Controls(kjmc(i)).text = Nothing Then
        MessageBox.Show("【"& kjmc(i)&"】不能为空,请检查")
        e.Form.Controls(kjmc(i)).Select
        Return
    End If
Next

Forms("窗口1").Open()