- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]组合框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57191)
-- 发布时间：2014/9/20 11:22:00
-- [求助]组合框
此主题相关图片如下：图像 4.png
要筛选的表是副本
[此贴子已经被作者于2014-9-20 11:23:48编辑过]
-- 发布时间：2014/9/20 11:37:00
--
统一用代码赋值http://www.foxtable.com/help/topics/0925.htm
-- 发布时间：2014/9/20 15:28:00
--
老师，当打开项目后有一导航窗口自动打开此时导航窗口中的任务栏需要全部收起，也就是处于全部关闭。
-- 发布时间：2014/9/20 15:36:00
--
http://www.foxtable.com/help/topics/0850.htm
-- 发布时间：2014/9/20 16:11:00
--
Dim tp As WinForm.TopicPage
tp = Forms("窗口").Controls("TopicBar1").Pages("页面")
tp.Collapsed = True
老师，报错
Object reference not set to an instance of an object.
-- 发布时间：2014/9/20 16:18:00
--
上个例子看看
-- 发布时间：2014/9/21 10:12:00
--
以下是引用风声在2014-9-20 15:28:00的发言：
老师，当打开项目后有一导航窗口自动打开此时导航窗口中的任务栏需要全部收起，也就是处于全部关闭。
老师，当打开项目后有一导航窗口自动打开此时导航窗口中的任务栏需要全部收起，也就是处于全部关闭。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导航窗口.table |
-- 发布时间：2014/9/21 10:28:00
--
Dim tbar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each tp As WinForm.TopicPage In tbar.Pages
tp.Collapsed = True
Next
-- 发布时间：2014/9/21 10:54:00
--
老师，其他任务栏设置同样的代码为什么不起作用。
Dim zjgl As WinForm.TopicBar = e.Form.Controls("TopicBar3")
For Each zj As WinForm.TopicPage In tbar.Pages
zj.Collapsed = True
Next
-- 发布时间：2014/9/21 10:56:00
--
Dim zjgl As WinForm.TopicBar = e.Form.Controls("TopicBar3")
For Each zj As WinForm.TopicPage In zjgl.Pages
zj.Collapsed = True
Next