各位专家好,有如下问题急需求助:
窗口里一个Tabcontrol控件,如下图:
此主题相关图片如下:win_total.jpg

不同的页面是不同的功能,通过一个integer变量WinC控制页面转换:
导航的代码:
Select Case e.Link.Name
Case "其他入库"
Vars("WinC") = 0
Forms("Win_Stock").Open
MainTable = Tables("其他入库单")
Case "其他出库"
Vars("WinC") = 1
Forms("Win_Stock").Open
MainTable = Tables("其他出库单")
Case "订单入库"
Vars("WinC") = 2
Forms("Win_Stock").Open
MainTable = Tables("订单入库主文件")
Case "订单出库"
Vars("WinC") = 3
Forms("Win_Stock").Open
MainTable = Tables("订单出库主文件")
Case "库存调整"
Forms("库存调整").Open
MainTable = Tables("库存调整主文件")
End Select
Win_Stock AfterLoad代码:
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
'tab.ShowTabs =False
Select Case Vars("WinC")
Case 0
e.Form.Controls("Table_name").Text = "【其他入库单】"
Case 1
e.Form.Controls("Table_name").Text = "【其他出库单】"
Case 2
e.Form.Controls("Table_name").Text = "【订单入库单】"
Case 3
e.Form.Controls("Table_name").Text = "【订单出库单】"
End Select
tab.SelectedIndex = Vars("WinC")
现在的问题是,导航条上点击后窗口打不开。不知道为什么?
谢谢各位。
[此贴子已经被作者于2014-4-25 11:16:27编辑过]