主题：[求助]关于TopicBar授权问题

建议加上判断：

Select Case e.Col.Name
    Case "子模块"
        If Forms("Navi").Opened Then
            Dim s As String = e.Row("模块")  'TopicBar.Pages
            Dim lnkname As String
            If s > "" Then
                If e.IsFocusCell Then
                    Dim tb As WinForm.TopicBar = Forms("Navi").Controls("TopicBar1").
                    Dim tp As WinForm.TopicPage
                    If tb.Pages.Contains(s) Then
                        tp = tb.Pages(s)
                        For Each lk As WinForm.TopicLink In tp.Links
                            lnkname = lnkname & " | " & lk.Name
                        Next
                        e.Col.ComboList = lnkname
                    End If
                End If
            End If
    End Select
   

还不行的话，你可以用这个方法分析一下，找出出错的代码，基本就知道原因了：

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