[求助]在SelectedIndexChanging事件中设置代码，当关闭窗口按钮时报错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在SelectedIndexChanging事件中设置代码，当关闭窗口按钮时报错。

共有7874人关注过本帖树形打印复制链接主题：[求助]在SelectedIndexChanging事件中设置代码，当关闭窗口按钮时报错。

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/6 16:38:00 [显示全部帖子]

除掉红色，也没有代码了，用例子说话。

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/6 17:48:00 [显示全部帖子]

Dim 行政管理 As WinForm.TabControl = e.Form.Controls("TabControl_行政管理")
If 行政管理.SelectedPage Is Nothing Then
Return
End If

'其他代码

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/7 8:16:00 [显示全部帖子]

大概如此，细节自行调整：

'''
Dim 人事管理 As WinForm.TabControl = e.Form.Controls("TabControl_人事管理")
Dim 行政管理 As WinForm.TabControl = e.Form.Controls("TabControl_行政管理")
Dim 财务管理 As WinForm.TabControl = e.Form.Controls("TabControl_财务管理")
人事管理.Visible= (e.Sender.SelectedPage.Butt)
行政管理.Visible= (e.Sender.SelectedPage.Butt)
财务管理.Visible= (e.Sender.SelectedPage.Butt)

下一主题 >> << 上一主题

主题：[求助]在SelectedIndexChanging事件中设置代码，当关闭窗口按钮时报错。