以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 想通过click事件切换页面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59783) |
-- 作者:zhangchi96 -- 发布时间:2014/11/10 22:48:00 -- 想通过click事件切换页面
窗体:“岗位聘用统计窗体” 第1页面:岗位聘用统计 插入表:岗位聘用统计 绑定表:岗位聘用统计 第2页面:职工信息 插入表:教职工信息表 绑定表:教职工信息表
目的:在内部表“岗位聘用统计”的表属性的click事件中,设置一个事件,当单击“岗位聘用统计”表的某一单元格时,自动切换到第2页面。
敬请高手指点一下!(说明书中只有用按钮切换的代码) [此贴子已经被作者于2014-11-11 12:49:56编辑过]
|
-- 作者:有点甜 -- 发布时间:2014/11/10 22:55:00 -- 切换的代码,不是一样的么?
直接拷贝按钮的代码进去,就行了。
你遇到什么问题 |
-- 作者:zhangchi96 -- 发布时间:2014/11/11 -- Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
不能写到click事件中 |
-- 作者:Bin -- 发布时间:2014/11/11 8:01:00 -- 不要用 e.form 用指定窗口名 forms(XX) |
-- 作者:zhangchi96 -- 发布时间:2014/11/11 12:51:00 -- 在click事件中添加语句: Forms("岗位聘用统计窗体").OpenTo("教职工信息表") 这个是有用的,可惜是重新打开窗体,而我这里已经打开了。 |
-- 作者:有点甜 -- 发布时间:2014/11/11 14:07:00 --
If Forms("岗位聘用统计窗体").Opened Then Dim tab As WinForm.TabControl = Forms("岗位聘用统计窗体").Controls("TabControl1") End If |