以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何控制某列中只能输入0和1两个数字的组合?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127099)
--  作者：happyft
--  发布时间：2018/11/5 16:10:00
--  如何控制某列中只能输入0和1两个数字的组合?
比如,有一列部门编号,输入的数字只能是0和1的任意组合,如0010,0101等,不能出现其他字符,ValidateEdit事件中要如何写代码?
If e.Col.name = "仓库编号" Then
    If e.Text > "" Then \'如果已经输入内容
        \'If e.Text not Like \'"0" Then
            
        \'End If
    End If
End If

谢谢!
--  作者：有点甜
--  发布时间：2018/11/5 18:31:00
--  

参考代码

 

Dim pattern As String =  "^[01]+$"
Dim txt As String = "001a010"

Dim rgx = new System.Text.RegularExpressions.Regex(pattern)
If rgx.isMatch(txt) = False Then
    msgbox("错误")
End If