-- 作者：Liangcai
-- 发布时间：2016/4/25 10:25:00
-- 控件集合
身份证号码不等于18位，父亲电话|母亲电话不等于11位（父亲电话|母亲电话只要有一个就可以了），求代码怎样改，谢谢！
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
End If
End If
Next
End If
|
-- 作者：大红袍
-- 发布时间：2016/4/25 10:32:00
--
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
|