我在表里设置了一个 拼音简码 列 用来获取客户名称的拼音首字母  现在发现一个问题

比如有多个以上海开头的公司  我输入 sh 按理说应该筛选出所有以上海开头的公司名称  但现在的情况是 都不显示

我的筛选代码如下

With e.Form
    If e.sender.text <> "输入关键字查询" Then
        Dim dst As Table = Tables("客户信息")
        Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
        dst.Filter = "[电话] Like \'*" & txb1.text & "*\' or [客户名称] Like \'*" & txb1.text & "*\' Or [地址] Like \'*" & txb1.text & "*\' Or [联系人] Like \'*" & txb1.text & "*\' Or [拼音简码] Like \'*" & txb1.text & "*\'Or [开户行] Like \'*" & txb1.text & "*\'Or [税号] Like \'*" & txb1.text & "*\'Or [账号] Like \'*" & txb1.text & "*\'"
    End If
End With