Dim pagename As String
If e.IsFocusCell Then
Dim tp As WinForm.TopicPage
Dim flag = False
If Forms("Main共有").Opened = False Then
flag = True
Forms("Main共有").Open
End If
tp = Forms("Main共有").Controls("TopicBar_导航窗口")
For Each page As WinForm.TopicPage In tp.pages
pagename = pagename & " | " & page.Text
Next
e.Col.ComboList = pagename
If flag Then Forms("Main共有").Close
End If
[此贴子已经被作者于2015/3/19 15:35:50编辑过]