With Forms("窗口1").Controls("TopicBar1").Pages
For Each s As String= DataTables("党员发展流程").getvalues("任务名称")
Dim p = .Add(s,s,"")
For Each s2 As String = DataTables("党员发展流程").getvalues("子任务","任务名称='" & s & "'")
p.Links.Add(s2,s2)
Next
Next
End With
有点蓝老师 红色部分提示语法错误
如果换成如下代码：
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,s2)
Next
Next
Next
End With
得到效果图
此主题相关图片如下：55.png
1、数据是全部显示出来了，但是没有按照对应的数据行进行显示 有点错行的感觉（任务名称 具体任务 子任务 都主要是按照表里面的数据逐行按序显示出来，不要错位）
2、当前表中 任务名称有6个数据 申请入党 入党积极分子的确定和培养 发展对象的确定和考察 预备党员的接收 预备党员的教育考察和转正 待办事项 ；每个任务名称下面都有具体任务 和对应的子任务
怎么实现对应的6个任务名称 自动绑定到6个任务栏（TopicBar1 2 3 4 5 6）上面呢？并且对应显示不同任务名称下面的具体任务和子任务内容。
动态增加导航栏页面
代码如下：
With Forms("窗口1").Controls("NavBar1").NewPage
.add("Project","项目","1601.ico")
.add("Plan","计划","1602.ico")
End With
运行错误：
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:窗口,窗口1,Button2,Click
详细错误信息:
未找到类型"Boolean"的公共成员"Add".
[此贴子已经被作者于2020/4/18 19:35:33编辑过]
加好友 
发短信
Post By：2020/4/18 17:26:00 [显示全部帖子]
