[求助]求助：下面的代怎么只生成了全部时间，如图，而其他的看不见 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助：下面的代怎么只生成了全部时间，如图，而其他的看不见

共有3007人关注过本帖树形打印复制链接主题：[求助]求助：下面的代怎么只生成了全部时间，如图，而其他的看不见

zgjmost

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00

[求助]求助：下面的代怎么只生成了全部时间，如图，而其他的看不见 发帖心情

Post By：2019/6/17 23:07:00 [只看该作者]

此主题相关图片如下：qq截图20190617230128.jpg

上图是运行生成的结果

下面是代码，怎么修改？

For Each rs As Row In Tables("考试数据表").rows

If rs IsNot Nothing Then

rs("日期短时间教室") = rs("短日期") & rs("起始时间") & rs("教室")

End If

Dim tv As WinForm.TreeView

tv =e.Form.Controls("签到单时间")

Dim Nd = tv.Nodes.Add("全部时间")

Dim dt As DataTable = DataTables("考试数据表")

Dim nds As new List(Of WinForm.TreeNode)

For i As Integer = 0 To 3

nds.Add(nd)

For Each arys As String() In dt.GetValues("短日期|起始时间|教室", "短日期 not in ('前交日')", "短日期,起始时间,教室")

Dim flag As Boolean = False

For i As Integer = 0 To arys.Length - 1

If nds(i+1).Name <> arys(i) OrElse flag Then

flag = True

nds(i+1) = nds(i).Nodes.Add(arys(i))

End If

e.Form.Controls("TabControl1").Select

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/17 23:24:00 [只看该作者]

没看懂代码表达的意思，上传具体实例说明

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/18 10:07:00 [只看该作者]

为什么要这样？不能直接写？

Dim tv As WinForm.TreeView
tv =e.Form.Controls("签到单时间")
tv.BuildTree("考试数据表", "短日期|起始时间|教室")

主题：[求助]求助：下面的代怎么只生成了全部时间，如图，而其他的看不见