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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]目录树代码改错

共有2259人关注过本帖树形打印复制链接主题：[原创]目录树代码改错

huaziqiao	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：童狐帖子：94 积分：2970 威望：0 精华：0 注册：2013/12/17 22:22:00	[原创]目录树代码改错 Post By：2018/8/29 15:39:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2018/8/29 17:23:00 [只看该作者]

For Each dr As DataRow In dt.Select("","KMBH")
If dr.IsNull("KMBH") = False AndAlso dr("KMBH").Length = 4 Then
Dim i As Integer = CInt(dr("KMBH").Substring(0,1))

msgbox(i) '这里分别弹出什么值
        nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))
        Functions.Execute("AddChildren",nd,dt,"")
    End If
Next

有点甜

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

加好友

发短信

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

Post By：2018/8/29 18:19:00 [只看该作者]

能否单独做一个实例发上来测试？

Dim i As Integer = CInt(dr("KMBH").Substring(0,1))
nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))

改成

Dim lb as String = dr("KMLB")
nd = tr.Nodes(lb).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))

huaziqiao	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：童狐帖子：94 积分：2970 威望：0 精华：0 注册：2013/12/17 22:22:00	Post By：2018/8/29 21:07:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

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

Post By：2018/8/29 21:25:00 [只看该作者]

Dim rts As List(Of String) = dt.GetValues("KMLB")

改成

Dim rts As List(Of String) = dt.GetValues("KMLB", "", "某列排序")

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

主题：[原创]目录树代码改错