【分享】根据数据表用代码生成任务栏页面及任务内容，多大60个任务，怎么实现点对应的任务内容后，打开对应窗体名称的窗体（因数量达60以上，逐一绑定添加有点不现实）。 - 专家坐堂 - 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

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

End With

然后任务栏点击事件

dim ss() as string = e.Link.Name.split("|")

if ss.length = 2 then

Forms(ss(1) ).open

end if

主题：【分享】根据数据表用代码生成任务栏页面及任务内容，多大60个任务，怎么实现点对应的任务内容后，打开对应窗体名称的窗体（因数量达60以上，逐一绑定添加有点不现实）。