主题：[求助]组合框

此主题相关图片如下：图像 4.png

要筛选的表是副本

统一用代码赋值http://www.foxtable.com/help/topics/0925.htm

老师，当打开项目后有一导航窗口自动打开此时导航窗口中的任务栏需要全部收起，也就是处于全部关闭。

http://www.foxtable.com/help/topics/0850.htm

Dim tp As WinForm.TopicPage
tp = Forms("窗口").Controls("TopicBar1").Pages("页面")
tp.Collapsed = True

老师，报错

Object reference not set to an instance of an object.

上个例子看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导航窗口.table

Dim tbar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each tp As WinForm.TopicPage In tbar.Pages
    tp.Collapsed = True
Next

老师，其他任务栏设置同样的代码为什么不起作用。

 

Dim zjgl As WinForm.TopicBar = e.Form.Controls("TopicBar3")
For Each zj As WinForm.TopicPage In tbar.Pages
    zj.Collapsed = True
Next

Dim zjgl As WinForm.TopicBar = e.Form.Controls("TopicBar3")
For Each zj As WinForm.TopicPage In zjgl.Pages
    zj.Collapsed = True
Next