专家坐堂-在使用ValidateEdit验证中，编写必须是写有效汉字的验证代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在使用ValidateEdit验证中，编写必须是写有效汉字的验证代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96918)

--  作者：fytea
--  发布时间：2017/3/2 13:28:00
--  在使用ValidateEdit验证中，编写必须是写有效汉字的验证代码
在使用ValidateEdit验证中，编写必须是有效汉字的验证代码，该如何写？

--  作者：有点色
--  发布时间：2017/3/2 15:03:00
--
有效汉字指什么？详细你的问题。

--  作者：有点色
--  发布时间：2017/3/2 15:09:00
--
Dim r As New System.Text.RegularExpressions.Regex("^[\\u4e00-\\u9fa5]+$")
If r.ismatch("我们") Then
    msgbox("是汉字")
Else
    msgbox("不全是汉字")
End If

--  作者：fytea
--  发布时间：2017/3/2 18:07:00
--
如第一列填充列值，必须是汉字，如果填写了数字或者字母，则提醒
[此贴子已经被作者于2017/3/2 18:08:07编辑过]

--  作者：有点色
--  发布时间：2017/3/2 18:28:00
--
If e.Col.name = "第一列" Then
    Dim r As New System.Text.RegularExpressions.Regex("^[\\u4e00-\\u9fa5]+$")
    If r.ismatch(e.text) = False Then
        msgbox("必须为汉字")
        e.cancel = True
    End If
End If