主题：控件集合

If e.Form.Controls("学生姓名").Value IsNot Nothing Then
    Dim kjmc() As String '控件名称
    Dim kjmcjh As String
    kjmcjh = "身份证号,民族,父亲姓名,母亲姓名,父亲电话|母亲电话,户籍省,户籍县,户籍镇,暂住街道,暂住社区"   '控件名称集合
    kjmc = kjmcjh.split(",")
    For i As Integer = 0 To kjmc.Length - 1
        Dim cct() As String = kjmc(i).Split("|")
        If cct.Length > 1 Then
            Dim flag As String = ""
            For j As Integer = cct.Length - 1 To 0 Step -1
                flag = cct(j)
                If e.Form.Controls(flag).Text <> Nothing Then
                    flag = ""
                    Exit For
                End If
            Next
            If flag > "" Then
                MessageBox.Show("请输入:【" & flag & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
            End If
        Else
            If e.Form.Controls(kjmc(i)).text = "" Then
                MessageBox.Show("请输入:【" & kjmc(i) & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
                e.Form.Controls(kjmc(i)).Select()
                Return
            ElseIf kjmc(I) = "身份证号" Then
                If e.Form.Controls(kjmc(i)).text.Length <> 18 Then
                    MessageBox.Show("身份证号必须是18位 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
                    e.Form.Controls(kjmc(i)).Select()
                    Return
                End If
            End If
        End If
    Next
End If