主题：想通过click事件切换页面

 
此主题相关图片如下：0013.jpg

 

 

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

第1页面：岗位聘用统计

    插入表：岗位聘用统计

    绑定表：岗位聘用统计

第2页面：职工信息

    插入表：教职工信息表

    绑定表：教职工信息表

 

目的：在内部表“岗位聘用统计”的表属性的click事件中，设置一个事件，当单击“岗位聘用统计”表的某一单元格时，自动切换到第2页面。

 

敬请高手指点一下！（说明书中只有用按钮切换的代码）

 切换的代码，不是一样的么？

 

 直接拷贝按钮的代码进去，就行了。

 

 你遇到什么问题

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1

 

不能写到click事件中

不要用 e.form  用指定窗口名  forms(XX)

在click事件中添加语句：

      Forms("岗位聘用统计窗体").OpenTo("教职工信息表")

这个是有用的，可惜是重新打开窗体，而我这里已经打开了。

 

If Forms("岗位聘用统计窗体").Opened Then

    Dim tab As WinForm.TabControl = Forms("岗位聘用统计窗体").Controls("TabControl1")
    tab.SelectedIndex = 1

End If