在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
Dim nm As String=e.Sender.TextDim tb As Table=Tables("窗口2_Table1")tb.Filter="拼音 like \'%" & nm & "%\' or 姓名 like \'%" & nm & "%\'"