主题：[求助]代码筛选问题求助

 呃，代码应该没有问题，可能是和别的代码冲突了。

 具体做个例子发上来看看。

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
If Forms("存款管理").Opened Then
    Forms("存款管理").Controls("社员ID").Text=e.Table.Current("社员ID")
    Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")

    If Forms("选择存款会员").Opened =False Then
        Forms("选择存款会员").Open
    End If

    Dim txt As String = e.Table.Current("对方户名")
    Dim tbl As Table = Tables("社员基本信息")
    If txt Is Nothing Then
        'tbl.Filter = ""
    Else
        txt = "'*" & txt & "*'"
        tbl.Filter = "社员信息_社员姓名 Like " & txt & " Or 社员信息_常用联系人 Like " & txt & " Or 社员信息_付款人 Like " & txt     
    End If
   
End If