以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  if问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122551)

--  作者:jick0526
--  发布时间:2018/7/27 18:41:00
--  if问题
老师,请问下表A的A列是字符列,如果A列输入的数字超过12位数,那么会自动跳出提示说,“您输错了”代码要怎么写?谢谢!
--  作者:有点蓝
--  发布时间:2018/7/27 20:24:00
--  
参考:http://www.foxtable.com/webhelp/scr/0624.htm
--  作者:jick0526
--  发布时间:2018/7/27 21:59:00
--  
老师,看了教程都是针对数值的,我的是字符,不知道该怎么改,我就想改为,如果A列输入的字符不等于12位,那么跳出提示,输错了,麻烦老师帮我写下代码,谢谢!
--  作者:有点蓝
--  发布时间:2018/7/27 22:23:00
--  
参考:http://www.foxtable.com/webhelp/scr/0230.htm
--  作者:jick0526
--  发布时间:2018/7/27 23:05:00
--  
老师,能帮我修改下吗?

If e.DataCol.Name = "客户" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("客户 = \'" & NewValue.length & "\'")
    
     If e.NewValue.length <> 8 Then   
MessageBox.Show("注意,发现错误!")
        
    End If
End If

--  作者:有点蓝
--  发布时间:2018/7/27 23:10:00
--  
If e.DataCol.Name = "客户" Then
    If e.NewValue > "" AndAlso e.NewValue.length <> 8 Then
        MessageBox.Show("注意,发现错误!")
    End If
End If