以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Tabcontrol页面转换问题(已解决,谢!)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49878)

--  作者:alangoon
--  发布时间:2014/4/25 10:30:00
--  [求助]Tabcontrol页面转换问题(已解决,谢!)

各位专家好,有如下问题急需求助:

窗口里一个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编辑过]

--  作者:alangoon
--  发布时间:2014/4/25 10:31:00
--  
忘了补充一个问题了,窗口打不开,但是MainTable可以转换。
--  作者:Bin
--  发布时间:2014/4/25 10:33:00
--  
导航条上点击后窗口打不开。 没看懂点的是哪里.  能否上个例子?
--  作者:alangoon
--  发布时间:2014/4/25 10:36:00
--  

Select Case e.Link.Name
            Case "其他入库"
                Vars("WinC") = 0
                Forms("Win_Stock").Open
                MainTable = Tables("其他入库单")
比如说如上代码,按理说我点击“其他入库”,win_stock应该打开的,但是却没有。只是显示MainTable = Tables("其他入库单")


--  作者:Bin
--  发布时间:2014/4/25 10:37:00
--  
上个例子看看
--  作者:Bin
--  发布时间:2014/4/25 10:37:00
--  
是否Forms("Win_Stock"). 绑定的不是Tables("其他入库单")   如果是停靠窗口 主窗口  只会显示在绑定的表上的.  你检查一下看看
--  作者:有点甜
--  发布时间:2014/4/25 10:39:00
--  

 这个是独立窗口,还是主窗口?属于哪个表的窗口?


--  作者:alangoon
--  发布时间:2014/4/25 10:42:00
--  

这个是主窗口。由于里面涉及到好多个表,所以我设置的所有者表是其中一个表。


--  作者:有点甜
--  发布时间:2014/4/25 10:44:00
--  
以下是引用alangoon在2014-4-25 10:42:00的发言:

这个是主窗口。由于里面涉及到好多个表,所以我设置的所有者表是其中一个表。

 

那么,你去到那个表看看,窗口是否打开了?


--  作者:Bin
--  发布时间:2014/4/25 10:46:00
--  
主窗口只会显示在所有表中

如果这个窗口的所有表不是 Tables("其他入库单")   那么当然不会再这里显示

但是可以利用 OpenTO

例如 Forms("Win_Stock").OpenTo("其他入库单")