以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 让页面集合上的一个页面在管理人员登录时隐藏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133650) |
-- 作者:kmzb56 -- 发布时间:2019/4/17 16:37:00 -- 让页面集合上的一个页面在管理人员登录时隐藏 Dim tab As WinForm.TabControl = e.Form.controls("TabControl1") If _Username= "管理人员" Then tab.("TabControl12").visible=True Else tab.("TabControl12").Visible=False End If 怎么不行呢?谢谢!
|
-- 作者:有点甜 -- 发布时间:2019/4/17 17:38:00 --
Dim tab As WinForm.TabControl = e.Form.controls("TabControl1")
msgbox(_UserName) If _Username= "管理人员" Then tab.TabPages("page2").visible=False Else tab.TabPages("page2").visible=True End If |
-- 作者:kmzb56 -- 发布时间:2019/4/17 22:26:00 -- If _Username= "管理人员" Then tab.TabPages("TabControl12").visible=True tab.TabPages("TabControl11").visible=True Else tab.TabPages("TabControl12").visible=False tab.TabPages("TabControl11").visible=False End If 我想在是想让这个页面除了隐藏后还可能用,因为我有些表是通过这个页名名称导出来的,如果只是隐藏的话不行,仍然能导出对应的表格,我看了用不可能和方法,或者移除这个页面的方法,试了一下都不行。请问要怎么弄?
|
-- 作者:有点甜 -- 发布时间:2019/4/18 0:01:00 -- 具体问题做一个实例发上来测试。 |