Dim txt As String = e.sender.Text
If txt > ""
Dim reg2 As new System.Text.RegularExpressions.Regex("^[a-zA-Z]+$")
Dim reg1 As new System.Text.RegularExpressions.Regex("^[0-9]+$")
If reg1.Ismatch(txt) = True Then
txt = "'%" & txt & "%'"
Dim po As Integer
po = Tables("初中上分_table1").FindRow("[考号] Like" & txt)
If po >= 0 Then '如果找到
Tables("初中上分_table1").Position = po '选定
Else
Tables("初中上分_table1").Position = 0
MessageBox.show("该考号在所选学生范围内不存在")
e.sender.text = ""
End If
ElseIf reg2.Ismatch(txt) = True Then
msgbox("字母")
txt = "'%" & txt & "%'"
Dim py As Integer
py = Tables("初中上分_table1").FindRow("getpinyin([姓名],1) Like" & txt)
If py >= 0 Then '如果找到
Tables("初中上分_table1").Position = py '选定
Else
Tables("初中上分_table1").Position = 0
MessageBox.show("该姓名学生不在所选范围内")
e.sender.text = ""
End If
Else
messagebox.show("不能输入字母和数字组合,请输入考号后4位数字或姓名拼音首字母")
e.Form.Controls("textbox6").text=""
e.Form.controls("textbox6").Select
End If
End If
拼音如何做？
加好友 
发短信
Post By：2017/11/28 14:27:00 [只看该作者]
