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

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

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

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

 卡，是因为你后面的代码，你去掉，或者换种思路去实现(触发了【社员基本信息】对应的事件了)

 测试了一下，确实有问题。

 放到click事件或者doubleclick事件才没有问题。

 哦，代码这样写

If Forms("选择存款会员").Opened Then
    Dim t As Table = Tables("社员基本信息")
    If e.keycode = keys.Down
        t.position = t.Position +1
        e.Cancel = True
    ElseIf e.keycode = keys.up
        t.position = t.Position -1
        e.Cancel = True
    ElseIf e.Keycode = keys.Enter
        'e.Text = t.Current("品种名称")
        Forms("选择存款会员").close()
    End If
    e.Cancel = True
End If