Foxtable(狐表)用户栏目专家坐堂 → [求助]Tabcontrol页面转换问题(已解决,谢!)


  共有3125人关注过本帖树形打印复制链接

主题:[求助]Tabcontrol页面转换问题(已解决,谢!)

帅哥哟,离线,有人找我吗?
alangoon
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:2118 威望:0 精华:0 注册:2013/3/9 23:21:00
[求助]Tabcontrol页面转换问题(已解决,谢!)  发帖心情 Post By:2014/4/25 10:30:00 [只看该作者]

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

窗口里一个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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:2118 威望:0 精华:0 注册:2013/3/9 23:21:00
  发帖心情 Post By:2014/4/25 10:31:00 [只看该作者]

忘了补充一个问题了,窗口打不开,但是MainTable可以转换。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/25 10:33:00 [只看该作者]

导航条上点击后窗口打不开。 没看懂点的是哪里.  能否上个例子?

 回到顶部
帅哥哟,离线,有人找我吗?
alangoon
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:2118 威望:0 精华:0 注册:2013/3/9 23:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/25 10:37:00 [只看该作者]

上个例子看看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/25 10:37:00 [只看该作者]

是否Forms("Win_Stock"). 绑定的不是Tables("其他入库单")   如果是停靠窗口 主窗口  只会显示在绑定的表上的.  你检查一下看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/25 10:39:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
alangoon
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:2118 威望:0 精华:0 注册:2013/3/9 23:21:00
  发帖心情 Post By:2014/4/25 10:42:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/25 10:44:00 [只看该作者]

以下是引用alangoon在2014-4-25 10:42:00的发言:

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/25 10:46:00 [只看该作者]

主窗口只会显示在所有表中

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

但是可以利用 OpenTO

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

 回到顶部
总数 14 1 2 下一页