以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何做到不能输入汉字？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69938)
--  作者：huhu
--  发布时间：2015/6/13 9:24:00
--  [求助]如何做到不能输入汉字？
我想在单元格里只能输入英文或数字之类的，就是不能输入汉字。可以做到吗？
--  作者：Bin
--  发布时间：2015/6/13 9:28:00
--  

DataColChanging


If e.DataCol.name="第一列" Then

    If System.Text.RegularExpressions.Regex.IsMatch(e.NewValue,"[\\u4e00-\\u9fa5]+") Then

        MessageBox.show("不能输入带有中文的字符串!")

        e.Cancel=True

    End If

End If