主题：控件输入

此主题相关图片如下：qq截图20140926164520.png

学生姓名必输, 父亲姓名和母亲姓名两者必输一个,请求保存代码?谢谢!

Dim kjmc() As String '控件名称
Dim kjmcjh As String
    kjmcjh = "学生姓名,????" '控件名称集合
    kjmc = kjmcjh.split(",")
    For i As Integer = 0 To kjmc.Length - 1
        If e.Form.Controls(kjmc(i)).text = "" Then
            MessageBox.Show("请输入:【" & kjmc(i) & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
            e.Form.Controls(kjmc(i)).Select()
            Return
        End If
    Next

谢谢!