| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136718) |
| -- 作者：zerozm -- 发布时间：2019/6/19 19:47:00 -- [求助]如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？ 如何实现，一个按钮 执行2个任务；显示和隐藏部分列，用同一个按钮？ 领导需要实现： 一个按钮，（以后会增加很多按钮来控制多列表格） 默认显示 “隐藏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 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 |
| -- 作者：zerozm -- 发布时间：2019/6/20 16:04:00 -- 谢谢各位老师！ |