以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  录入时验证内容不能包含 ’ 应该怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119800)
--  作者：royyang
--  发布时间：2018/6/1 9:40:00
--  录入时验证内容不能包含 ’ 应该怎么写？
录入时验证内容不能包含 ’ 应该怎么写？

或者只能录入数字或-号
--  作者：有点甜
--  发布时间：2018/6/1 9:57:00
--  

参考代码

 

Dim pattern As String = "^[0-9-]+$"
Dim txt As String= "2017-9-1" \'2017年9月
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(txt) = False Then
    msgbox("请输入正确的数据!")
Else
    msgbox("正确")
End If