以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136718)
--  作者：zerozm
--  发布时间：2019/6/19 19:47:00
--  [求助]如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？

如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？

我目前用的2个按钮，一个“隐藏ABCD列”； 还有一个 “显示ABCD列”，能实现功能；

领导需要实现：

一个按钮，（以后会增加很多按钮来控制多列表格）

默认显示 “隐藏ABCD列”，点击后，ABCD列隐藏；  同时 变成 “显示ABCD列”，
然后按钮就是“显示ABCD列”，点击后，ABCD列显示 ，同时 按钮变成 “隐藏ABCD列”。
--  作者：andy123
--  发布时间：2019/6/19 20:34:00
--  
if tables("???").cols("A").Visible = False then
 tables("???").cols("A").Visible = True
 tables("???").cols("B").Visible = True
 tables("???").cols("C").Visible = True
 tables("???").cols("D").Visible = True
else
 tables("???").cols("A").Visible = False
 tables("???").cols("B").Visible = False
 tables("???").cols("C").Visible = False
 tables("???").cols("D").Visible = False
end if
--  作者：andy123
--  发布时间：2019/6/19 20:38:00
--  
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")   \'假设按钮为Button2

if tables("???").cols("A").Visible = False then
bt2.Text ＝ “隐藏ABCD列”
 tables("???").cols("A").Visible = True
 tables("???").cols("B").Visible = True
 tables("???").cols("C").Visible = True
 tables("???").cols("D").Visible = True
else
bt2.Text ＝ “显示ABCD列”
 tables("???").cols("A").Visible = False
 tables("???").cols("B").Visible = False
 tables("???").cols("C").Visible = False
 tables("???").cols("D").Visible = False
end if
--  作者：njcyt
--  发布时间：2019/6/19 21:23:00
--  
参考
 Case "产品类别显隐"   \'列的显示与隐藏.第一次点击是显示,第二次点击是隐藏
        Dim v As String = "物料类别1,物料类别2,物料类别3,物料类别4,系统类别1,系统类别2"
        Dim ary() As String = v.Split(",")
        For Each c As String In ary
            Tables("BOM产品").Cols(c).Visible =  not Tables("BOM产品").Cols(c).Visible
        Next
--  作者：有点甜
--  发布时间：2019/6/19 21:55:00
--  

参考代码

 

Dim btn2 As WinForm.Button = e.Form.Controls("Button2")   \'假设按钮为Button2
If bt2.Text = "显示" Then
    bt2.Text = "隐藏"
Else
    bt2.Text = "显示"
End If
--  作者：zerozm
--  发布时间：2019/6/20 16:04:00
--  
谢谢各位老师！