如何实现任务栏页面任务当不存在窗体名称时就不可选，反之就打开对应窗体！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

动态生成任务页面和任务内容的代码如下：

With Forms("窗口1").Controls("TopicBar1").Pages

Dim lsts As New List(Of String)

lsts= DataTables("党员发展流程").getvalues("任务名称")

For Each s As String In lsts

Dim lsts2 As New List(Of String)

lsts2= DataTables("党员发展流程").getvalues("具体任务","任务名称='" & s & "'")

For Each s1 As String In lsts2

Dim p = .Add(s1,s1,"")

Dim lsts1 As New List(Of String())

lsts1= DataTables("党员发展流程").getvalues("子任务|对应窗体名称","任务名称='" & s & "'and 具体任务='" & s1 & "'")

For Each s2 As String() In lsts1

if s2(1) > "" then

p.Links.Add(s2(0) & "|" & s2(1), s2(0))

else

dim lk = p.Links.Add(s2(0), s2(0))

lk.enabled = false

endif

End With

主题：如何实现任务栏页面任务 当不存在窗体名称时 就不可选，反之就打开对应窗体！