主题：限制中文输入

If e.Col.name = "SRS_No" Then

    Dim s2 As String = e.text

    If s2 <> "" Then

        If Asc(s2) > 47 And Asc(s2) < 58 OrElse Asc(s2) > 64 And Asc(s2) < 91 OrElse Asc(s2) > 96 And Asc(s2) < 123 OrElse Asc(s2) = 45 Then

            e.Cancel = False

        Else

            msgbox("您输入的办单号含有非法字符,请重新输入!" & Chr(13) & Chr(10) & "办单号只能包含字母,数字和符号""-""")

            e.Cancel = True

        End If

    End If

End If

Dim data As String = "13AA343"

Dim reg As new System.Text.RegularExpressions.Regex("^[0-9a-zA-Z]+$")

Dim result As Boolean = reg.IsMatch(data)

msgbox(result)