主题：任务栏 页面展开时语句

1楼的代码不会报2楼的错误。

你控件里面是不是还写了其它代码？做个具体例子上传上来看看

执行下面代码，看弹出什么

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True   
    End If
Next
If  e.Page.Name = "工作流"   Then

msgbox(1)
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")

msgbox(2)
link.Text = link.text & "123"
MessageBox.Show(222)
End If

测试，看弹出什么

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True   
    End If
Next

msgbox(e.page.name)
If  e.Page.Name = "工作流"   Then

msgbox(1)
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")

msgbox(2)
link.Text = link.text & "123"
MessageBox.Show(222)
End If