Foxtable(狐表)用户栏目专家坐堂 → 限制中文输入


  共有4379人关注过本帖树形打印复制链接

主题:限制中文输入

帅哥哟,离线,有人找我吗?
xvkewen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:593 积分:5562 威望:0 精华:0 注册:2012/6/29 19:11:00
限制中文输入  发帖心情 Post By:2013/12/15 15:45:00 [显示全部帖子]

我想SRS列里只能输入字母,数字和符号"-",当我直接输入中文的时候可以得到提示,但当我中英文混输的时候,却没有提示且被正常录入了,为什么?validateEdit事件的代码如下:

If e.Col.name = "SRS_No" Then
    Dim s2 As String = e.text
    If s2 <> "" Then
        If Asc(s2) > 47 And Asc(s2) < 58 OrElse Asc(s2) > 64 And Asc(s2) < 91 OrElse Asc(s2) > 96 And Asc(s2) < 123 OrElse Asc(s2) = 45 Then
            e.Cancel = False
        Else
            msgbox("您输入的办单号含有非法字符,请重新输入!" & Chr(13) & Chr(10) & "办单号只能包含字母,数字和符号""-""")
            e.Cancel = True
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
xvkewen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:593 积分:5562 威望:0 精华:0 注册:2012/6/29 19:11:00
  发帖心情 Post By:2013/12/15 20:21:00 [显示全部帖子]

我是for each对输入的字符逐个判断,是不是笨了点?

 回到顶部