以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 为什么切换页面标签后,按钮不能用了? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190012) |
-- 作者:hongyaoyu -- 发布时间:2024/1/11 7:50:00 -- 为什么切换页面标签后,按钮不能用了? 窗口里面的页面标签,切换到其中的某个标签后,按钮和筛选器对表都不起作用了?不切换到这些标签的时候还没有问题。 按钮的语句: With Tables("绿建国标条款") .Position = .Position + 1 End With 筛选器的语句: Dim Filter As String With e.Form.Controls("tx") If .Value IsNot Nothing Then Filter = "条文归属 = \'" & .Value & "\'" End If End With With e.Form.Controls("qd") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "条文分类 = \'" & .Value & "\'" End If End With With e.Form.Controls("bj") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "标记 = \'" & .Value & "\'" End If End With With e.Form.Controls("zy") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "专业分类 like \'%" & .Value & "%\'" End If End With With e.Form.Controls("ny") If .Value IsNot Nothing Then Filter = "难易度 = \'" & .Value & "\'" End If End With If Filter > "" Then Tables("绿建国标条款").Filter = Filter |
-- 作者:hongyaoyu -- 发布时间:2024/1/11 8:10:00 -- 找到原因了,把表属性设为附表,也不要频繁刷新表就没有问题了 |