PrepareEdit事件 打底色的部分写的不对，这段代码是想在单元格中搞个下拉菜单，自动列出TopicBar_导航窗口中的页面名，不知如何改，谢谢！
另外，这段代码执行的前提是这个Forms("Main共有")处于打开状态，如果是关闭状态，能让代码执行吗？
Select Case e.Col.Name
Case "任务名"
Dim s As String = e.Row("页面名") 'TopicBar.Pages
Dim lnkname As String
If s > "" Then
If e.IsFocusCell Then
Dim tp As WinForm.TopicPage
tp = Forms("Main共有").Controls("TopicBar_导航窗口").Pages(s)
For Each lk As WinForm.TopicLink In tp.Links
lnkname = lnkname & " | " & lk.Name
Next
e.Col.ComboList = lnkname
End If
End If
Case "页面名"
Dim pagename As String
If e.IsFocusCell Then
Dim tp As WinForm.TopicPage
tp = Forms("Main共有").Controls("TopicBar_导航窗口")
For Each page As WinForm.TopicPage In tp.pages
pagename = pagename & " | " & page.Name
Next
e.Col.ComboList = pagename
End If
End Select
加好友 
发短信
Post By：2015/3/19 15:32:00 [只看该作者]
