此主题相关图片如下: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