Dim pattern As String = "^A[0-9]{13}$" Dim txt As String = e.Sender.Text If txt > "" Then Dim rgx = new System.Text.RegularExpressions.Regex(pattern) If rgx.isMatch(txt) = False Then e.Sender.Error = "机构编码是以A开头的14位数!" e.cancel = True Else e.Sender.Error = "" End If Else e.Sender.Error = "" End If