改一下
If e.Sender.Text > "" AndAlso System.Text.RegularExpressions.Regex.isMatch(e.Sender.Text,"[0-9]{4}-(0[0-9]{1})|(1[1-2]{1})") = False Then
加好友 
发短信
Post By：2015/3/11 19:22:00 [显示全部帖子]
