以文本方式查看主题

-  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事件切换页面

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

 

 

窗体:“岗位聘用统计窗体”

第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")
tab.SelectedIndex = 1

 

不能写到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")
    tab.SelectedIndex = 1

End If