Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现,一个按钮 执行2个任务;显示和隐藏部分列,用同一个按钮?


  共有2100人关注过本帖树形打印复制链接

主题:[求助]如何实现,一个按钮 执行2个任务;显示和隐藏部分列,用同一个按钮?

帅哥哟,离线,有人找我吗?
andy123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:2668 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:2668 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By: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

 回到顶部