[求助]关于目录树的根节点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于目录树的根节点

共有3823人关注过本帖树形打印复制链接主题：[求助]关于目录树的根节点

czy66ds

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

加好友

发短信

等级：七尾狐帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00

Post By：2014/3/18 17:28:00 [只看该作者]

是这样。还是LSY表述的清楚。

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/3/18 17:32:00 [只看该作者]

Dim cmd As New SQLCommand

cmd.C

Dim dt As DataTable

cmd.CommandText = "SELECT DISTINCT Year(消费日期) As 年, Month(消费日期) As 月, 品牌, 店铺 From {会员消费表} "

dt = cmd.ExecuteReader()

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

tv.BuildTree(dt, "年|月")

tv.Nodes.Insert("显示所有行",0)

Dim str1 As String = dt.GetComboListString("品牌")

Dim str2 As String = dt.GetComboListString("店铺")

tv.Nodes.Add("品牌")

tv.Nodes.Add("店铺")

For Each s As String In str1.Split("|")
tv.Nodes("品牌").Nodes.Add(s)
Next

For Each s As String In str2.Split("|")
tv.Nodes("店铺").Nodes.Add(s)
Next

[此贴子已经被作者于2014-3-18 17:32:45编辑过]

czy66ds

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

加好友

发短信

等级：七尾狐帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00

Post By：2014/3/18 17:43:00 [只看该作者]

生成理想的目录树这一关过了。十分感谢。

wh420

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

加好友

发短信

等级：五尾狐帖子：1107 积分：10562 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2014/3/21 15:18:00 [只看该作者]

刚发现虽然目录树显示正常了，但数据有重复的。

此主题相关图片如下：6.jpg

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/3/21 15:30:00 [只看该作者]

源语种和目标语种有重复。

例子发上来，深加工。

wh420

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

加好友

发短信

等级：五尾狐帖子：1107 积分：10562 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2014/3/21 15:40:00 [只看该作者]

lsy老师说的是，这两个字段内容有重复，我再想想办法，不行就手动制作目录算了。谢谢老师

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/3/21 15:47:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT YuanLan1,Mubiaolan1 From {Translators}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"YuanLan1")
trv.Nodes.Insert("加载所有数据",0)
Dim str As String = dt.GetComboListString("YuanLan1")
Dim str1 As String = dt.GetComboListString("Mubiaolan1")
For Each s As String In str1.Split("|")
    If str.Contains(s) = False Then
        trv.Nodes.Add(s)
    End If
Next

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：[求助]关于目录树的根节点