以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于当前表筛选的问题 (http://foxtable.net/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 |