以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求按钮循环代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34691)
--  作者：yifan3429
--  发布时间：2013/6/13 0:03:00
--  求按钮循环代码

比如设计一个按钮 按一下隐藏逻辑列 为False的行  再按一下显示所有行  并将逻辑列为False的升序

 

 
--  作者：lsy
--  发布时间：2013/6/13 7:09:00
--  

按钮文本初始为"显示真值"

 

If e.Sender.Text = "显示真值" Then
    e.Sender.Text = "显示全部"
    Tables("表A").Filter = "逻辑列 = True"
Else
    e.Sender.Text = "显示真值"
    Tables("表A").Filter = ""
    Tables("表A").Sort = "逻辑列"
End If