以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  关于当前表筛选的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121403)

--  作者：weipeng6999 --  发布时间：2018/7/5 15:35:00 --  关于当前表筛选的问题 老师好！我在菜单栏里面放了个筛选条件的文本框筛选按键，我想实现的功能是能自动判断当前所在表进行筛选。 Dim zd As RibbonMenu.ComboBox = RibbonTabs("工作台").Groups("筛选").Items("查询字段") Dim cxnr As RibbonMenu.TextBox = RibbonTabs("工作台").Groups("筛选").Items("查询内容") If zd.Text="单位名称" Then Tables("客户信息表").Filter = "单位名称 Like \'*" & cxnr.Text & "*\'" Else Tables("客户信息表").Filter = "采购人 like \'*" & cxnr.Text & "*\'" End If 这段代码只能在客户信息表里面筛选。还有，我想实现的功能是：就这段代码中，如果当前表不是“客户信息表”，我点击筛选按键后自动弹出提示“当前不在客户信息表”中。 请老师指点！ [此贴子已经被作者于2018/7/5 15:41:17编辑过]

--  作者：有点蓝 --  发布时间：2018/7/5 16:21:00 --   If CurrentTable.Name <> "客户信息表" Then     msgbox("当前不在客户信息表")     Return End If If zd.Text="单位名称" Then     Tables("客户信息表").Filter = "单位名称 Like \'*" & cxnr.Text & "*\'" Else     Tables("客户信息表").Filter = "采购人 like \'*" & cxnr.Text & "*\'" End If

--  作者：weipeng6999 --  发布时间：2018/7/5 16:50:00 --   蓝老师，请问怎么才能动态判断当前表是哪张表，然后根据当前表进行筛选 [此贴子已经被作者于2018/7/5 17:10:49编辑过]

--  作者：有点蓝 --  发布时间：2018/7/5 17:22:00 --   msgbox(CurrentTable.Name) Select Case CurrentTable.Name      Case "表A"          \'代码一     Case "表B"         \'代码二     Case "表E"         \'代码三 End Select