- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何复制设计好的窗口或打开页面集合中的指定页面？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29461)
-- 发布时间：2013/3/7 10:46:00
-- 如何复制设计好的窗口或打开页面集合中的指定页面？
因要根据不同的单元格打开不同的明细窗口，现有2种方法，求教大师们如何实现？
此主题相关图片如下：窗口.png
此主题相关图片如下：窗口2.png
-- 发布时间：2013/3/7 10:54:00
--
参考：
http://www.foxtable.com/help/topics/0831.htm
-- 发布时间：2013/3/7 11:08:00
-- 回复：（狐狸爸爸）参考：http://www.foxtable.com/...
老大，出现错误提示，大意是参数不对或没有设置参数。
此主题相关图片如下：窗口错误.png
-- 发布时间：2013/3/7 11:12:00
--
用这个方法，找出出错的代码：
http://www.foxtable.com/help/topics/1284.htm
然后分析原因，搞不定，就贴出代码，然后告诉大家哪一行代码有错。
-- 发布时间：2013/3/7 12:53:00
-- 回复：（狐狸爸爸）用这个方法，找出出错的代码：ht...
还是出错，代码我是直接从帮助文件中复制修改的。
-- 发布时间：2013/3/7 14:19:00
--
你让别人捉迷藏？
至少应该说明一下，在什么地方写了代码？ 目的是什么? 怎么操作会出现问题？
-- 发布时间：2013/3/7 15:24:00
-- 回复：（狐狸爸爸）你让别人捉迷藏？至少应该说明一...
老大，谢谢您这么热心的指点。我最终想要达到的目的如下图：
此主题相关图片如下：123.png
-- 发布时间：2013/3/7 15:47:00
--
B是哪个表？
其实知道需要，就很简单。
问题可以简化为：
1、如果知道当前选择的列？
2、如何隐藏和显示TabControl页面？
置B表的AfterSelChange事件：
http://www.foxtable.com/help/topics/0645.htm
If Forms("窗口名").opened Then
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
Case "列名一"
Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1")
For i As Integer = 0 To tab.TabPages.count - 1
tab.TabPages(i).Visible = (i = 0) \'只显示第一页
Next
Case "列名二"
Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1")
For i As Integer = 0 To tab.TabPages.count - 1
tab.TabPages(i).Visible = (i = 1) \'只显示第二页
Next
End Select
End If
-- 发布时间：2013/3/7 17:35:00
-- 回复：（狐狸爸爸）B是哪个表？其实知道需要，就很简...
狐表太强大了，下班接着做。