标题：菜单方案代码

Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text
With CurrentTable
    CurrentTable.Filter  =  "[图号] Like '*" & Val & "*'"
End With

 

我有一个组合框RibbonTabs("数据库")("查询信息")("列名")

组合框能选出我想要的列名（但我不想光标移动到该列），以上代码怎样改可实现当组合框为空时，按以上代码执行，有字符时，按列名=组合框中字符进行筛选，谢谢

没看明白，组合框为空还按上面的代码执行，能筛选出东东吗？

对不起，是我没说清楚。上面代码是工具栏的按钮代码，图号是工具栏的文本框，列名是工具栏的组合框，我是想在工具栏文本框输入要查询的字符，组合框默认空，点按钮，筛选出图号包含文本框的行，如组合框列名输入当前表的列名，则筛选出组合框名称列的包含文本框的行。谢谢C版

Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text
Dim Val1 As String = RibbonTabs("数据库")("查询信息")("列名").Text
If Val <> "" Then
    If RibbonTabs("数据库")("查询信息")("列名").Text <> "" Then
        CurrentTable.Filter  =  Val1 & " Like '*" & Val & "*'"
    Else
        CurrentTable.Filter  =  "[图号] Like '*" & Val & "*'"
    End If
End If

CurrentTable.Filter  =  Val1 & " Like '*" & Val & "*'"

为什么不是：

CurrentTable.Filter  =  "Val1 &  Like '*" & Val & "*'"

为什么还要加一个&

后天测试一下，谢谢C版

 

这个我就不解释了，看看帮助中的动态合成表达式。

参考···