-- 作者:test138
-- 发布时间:2019/7/2 17:29:00
-- 求助:窗口控件加入掩码执行错误
各位老师:我在窗口的控件中输入掩码:如下图
此主题相关图片如下:微信图片_20190702172631.png
但执行后出现如下提示:
此主题相关图片如下:微信图片_20190702172639.png
但不加掩码便不会出现,控件的ValueChanged代码如下:
If _UserRoles = "工检3" Then \'如果登陆者角色为工序检验岗3 Dim cr = Tables("制造质量管理").Current Dim d As String = cr("发动机号") Dim bh As String = e.Form.Controls("TextBox5").Text Dim dr As DataRow = DataTables("制造质量管理").Find("发动机号 = \'" & bh & "\'") Dim b As String = e.Form.Controls("TextBox1").Text Dim dr1 As DataRow = DataTables("车型总成管理").Find("VIN码 = \'" & b & "\'") If dr Is Nothing Then \'如果不存在同编号的订单 cr("发动机号")=e.Form.Controls("TextBox5").Text dr1("发动机总成_总成编号")=e.Form.Controls("TextBox5").Text dr1("发动机总成_判定")= True Else MessageBox.Show( "发动机号 " & bh & " 重复,请校核!") \'否则提示你无此权限 End If End If 请问是不是加入掩码会影响代码的执行吗?怎样才能有掩码但代码执行正常?
请各位老师费心!
|