- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何根据表数据 利用代码生成任务栏数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148921)
-- 发布时间：2020/4/18 17:26:00
-- 如何根据表数据 利用代码生成任务栏数据
如何根据表数据 利用代码生成任务栏数据 谢谢老师们的指导
表内数据分为三列 任务名称 具体任务 子任务 如图：
此主题相关图片如下：11.png
此主题相关图片如下：11.png因为内容较多，不便于一个个去操作，有没有老师指导一下，直接用表内数据，写代码的方式实现如下任务栏的动态生成效果呢？
此主题相关图片如下：22.png
如果连导航栏都可以直接代码动态生成的话 那就最好了
-- 发布时间：2020/4/18 17:46:00
--
动态添加导航：
比如
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
-- 发布时间：2020/4/18 18:02:00
-- 回复：（有点蓝）动态添加导航：http://www.foxtable....
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编辑过]
-- 发布时间：2020/4/19 20:24:00
--
1、
GetValues(ColumnName,Filter,Sort)
ColumnName：列名称，从此列中提取不重复的值。
Filter: 可选参数，指定一个条件表达式，只返回符合此条件的值；请参考表达式的运算符和函数 和 条件表达式
Sort: 可选参数，指定排序列，如果省略，则根据取值列排序，通常无需设置。
2、With Forms("窗口1").Controls("NavBar1").NavPages