以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  文本框中输入的内容是否为汉字如何判断  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133838)

--  作者:ts9277
--  发布时间: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


--  作者:有点色
--  发布时间: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
--  发布时间:2019/4/22 20:01:00
--  
谢谢老师,能实现要求