主题：模糊查找报错

以下代码当输入字符不匹配时出错

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("客户主窗口_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 联系人 Like " & txt & " Or 地址 Like " & txt
End If

此主题相关图片如下：未标题-1.jpg

狐表的筛选,匹配符应该使用 * 号不是 %号 

改成*号也是一样的结果

%号也是可以的,我刚才误判了.

和筛选无关，你修改这个表CurretChanged事件代码：

 

if  e.Table.Current IsNot Nothing Then
     '原来的CurrentCanged事件代码
End if

因为筛选后，如果没有符合条件的行，e.Table.Current 或者 Tables("表名").Current肯定要出错。
使用Current是必须判断的，切记。

Currentchanged有如下代码

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("客户").FindRow(dr)
If wz >=0 Then
      Tables("客户").Position = wz
End If

if  e.Table.Current IsNot Nothing Then
     Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("客户").FindRow(dr)
If wz >=0 Then
      Tables("客户").Position = wz
End If
End if

谢谢，解决了，速度很快