主题：[求助]组合框

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

要筛选的表是副本

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

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 zjgl As WinForm.TopicBar = e.Form.Controls("TopicBar3")
For Each zj As WinForm.TopicPage In tbar.Pages
    zj.Collapsed = True
Next

谢谢