以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]页面集合  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137918)

--  作者:江南小镇
--  发布时间:2019/7/18 13:23:00
--  [求助]页面集合
老师好,我要打开页面集合的页面1隐藏组合框1、组合框2、按钮1按钮2
                               显示组合框3、组合框4、按钮3按钮4
 
                   打开页面集合的页面2隐藏组合框3、组合框4、按钮3按钮4
                                  显示组合框1、组合框2、按钮1按钮2

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏.table


--  作者:有点蓝
--  发布时间:2019/7/18 13:38:00
--  
页签SelectedIndexChanged事件
if Forms("按钮隐藏").opened
Forms("按钮隐藏").Controls("Button1").Visible = e.Sender.SelectedIndex = 0
Forms("按钮隐藏").Controls("Button3").Visible = e.Sender.SelectedIndex = 1
end if
[此贴子已经被作者于2019/7/18 13:38:12编辑过]

--  作者:江南小镇
--  发布时间:2019/7/18 18:53:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看

--  作者:有点酸
--  发布时间:2019/7/18 19:41:00
--  
http://www.foxtable.com/webhelp/topics/0642.htm


--  作者:江南小镇
--  发布时间:2019/7/18 20:25:00
--  
老师,我是说下面代码怎样修改。
if Forms("按钮隐藏").opened
Forms("按钮隐藏").Controls("Button1").Visible = e.Sender.SelectedIndex = 0
Forms("按钮隐藏").Controls("Button3").Visible = e.Sender.SelectedIndex = 1
end if

--  作者:有点蓝
--  发布时间:2019/7/19 8:55:00
--  
Forms("按钮隐藏").open
Forms("按钮隐藏").Controls("Button1").Visible = e.Sender.SelectedIndex = 0
Forms("按钮隐藏").Controls("Button3").Visible = e.Sender.SelectedIndex = 1


--  作者:江南小镇
--  发布时间:2019/7/19 8:59:00
--  
老师,怎样把按钮代码赋值给窗口副本表单元格小按钮的Click事件。
--  作者:有点蓝
--  发布时间:2019/7/19 9:25:00
--  
到副本表对应的主表CellButtonClick写代码
--  作者:江南小镇
--  发布时间:2019/7/19 22:01:00
--  
老师好,通过页面集合第一个页签控件中的副本表单元格小按钮打开另一个窗口时隐藏代码不起作用。下面代码设置在副本表DoubleClick的事件里。另一个页签控件中的副本表单元格小按钮打开窗口能隐藏控件。关闭窗口代码设置在SelectedIndexChanged(Forms("列表赋值").Close()
e.Cancel = True \'禁止进入编辑状态
vars("标题") = "列表赋值"
Forms("列表赋值").Open()
Forms("列表赋值").Controls("ComboBox4").Visible = False
Forms("列表赋值").Controls("ComboBox3").Visible = False
Forms("列表赋值").Controls("ComboBox2").Visible = False
Forms("列表赋值").Controls("CheckedComboBox5").Visible = False
Forms("列表赋值").Controls("CheckedComboBox4").Visible = False
Forms("列表赋值").Controls("Label4").Visible = False


--  作者:有点蓝
--  发布时间:2019/7/19 23:02:00
--  
Forms("列表赋值")不能是模式窗口