文本框中输入的内容是否为汉字如何判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框中输入的内容是否为汉字如何判断

共有2681人关注过本帖树形打印复制链接主题：文本框中输入的内容是否为汉字如何判断

ts9277

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

文本框中输入的内容是否为汉字如何判断 发帖心情

Post By：2019/4/21 21:22:00 [只看该作者]

此主题相关图片如下：4-21.jpg

老师我想问下文本框中输入的内容是否为汉字如何判断，我想实现文本框中输入汉字则用姓名列来筛选，如果输入字母，则用拼音列来筛选

在TextChanged 事件中的代码：else 部分代码无法执行，需要如何调整

Dim nm As String=e.Sender.Text

Dim tb As Table=Tables("窗口2_Table1")

If Char.IsLetter(nm) Then

tb.Filter="拼音 like '%" & nm & "%'"

Else

'MessageBox.Show("输入的不是字母")

tb.Filter="姓名 like '%" & nm & "%'"

End If

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2019/4/22 11:22:00 [只看该作者]

Dim nm As String=e.Sender.Text
Dim tb As Table=Tables("窗口2_Table1")
tb.Filter="拼音 like '%" & nm & "%' or 姓名 like '%" & nm & "%'"

ts9277

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2019/4/22 20:01:00 [只看该作者]

谢谢老师，能实现要求

主题：文本框中输入的内容是否为汉字如何判断