1，下拉窗口显示的问题。在表B窗口打开表A，在“模糊筛选关键字”框中输入要筛选的字后，再点击窗口表A的第二列下拉窗口，下拉窗口所显示的信息不是所筛选的对应行第四列的信息。应该如何设置。

2，表B窗口TextBox1（即“模糊筛选关键字”框）代码能否简化。怎样简化。

请老师指教，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目10.table

谢谢C版！

第一个问题解决的非常好。

第二个问题，文本框的代码还可以简化吗。

可以的。

Dim Filter As String
If Vars("Name") = "表A" Then   \'如果组合框显示为"表A"
    Filter = "[第一列] Like \'*" & e.Sender.Text & "*\' or [第二列] Like \'*" & e.Sender.Text & "*\'or[第四列] Like \'*" & e.Sender.Text & "*\'"
End If
If Vars("Name") = "表B" Then   \'如果组合框显示为"表B"
    Filter = "[第一列] Like \'*" & e.Sender.Text & "*\' or [第二列] Like \'*" & e.Sender.Text & "*\'or[项目] Like \'*" & e.Sender.Text & "*\'"
End If
If Vars("Name") = "表C" Then   \'如果组合框显示为"表C"
    Filter = "[第一列] Like \'*" & e.Sender.Text & "*\' or [第二列] Like \'*" & e.Sender.Text & "*\'or[摘要] Like \'*" & e.Sender.Text & "*\'"
End If
Tables("窗口5_Table1").Filter = Filter
Tables(Vars("Name")).Filter = Filter
Tables(Vars("Name")).Position = Tables("窗口5_Table1").Position

谢谢C版！

这样一个表还是要写一段代码。我是想三个表要查找的前两个字段都相同，第三个字段不同，那个不同的字段能否用变了代替。

C版，算了还是明天来吧，今天很晚了，注意休息。

增加一个字符型全局变量，如CName

ComboBox1的SelectedIndexChanged控件事件：

Vars("Name") = e.Sender.Value
Select Case e.Sender.Value
    Case "表A"
        Vars("CName") ="第四列"
    Case "表B"
        Vars("CName") = "项目"
    Case "表C"
        Vars("CName") = "摘要"
    Case Else
        Vars("CName") = ""
End Select

然后将4楼的代码改成：

If Vars("CName") <> "" Then
    Dim Filter As String = "[第一列] Like \'*" & e.Sender.Text & "*\' or [第二列] Like \'*" & e.Sender.Text & "*\'or " & Vars("CName") & " Like \'*" & e.Sender.Text & "*\'"
    Tables("窗口5_Table1").Filter = Filter
    Tables(Vars("Name")).Filter = Filter
    Tables(Vars("Name")).Position = Tables("窗口5_Table1").Position
End If