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

在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