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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这种目录树形式如何实现

共有15317人关注过本帖树形打印复制链接主题：[求助]这种目录树形式如何实现

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/3/30 11:27:00 [显示全部帖子]

给个项目例子，这个难不倒大家的····

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/3/30 13:06:00 [显示全部帖子]

还可以这样：
Forms("窗口1").Controls("TreeView1").Nodes.Clear
If Tables("表A").Cols.Contains("mlsh") Then
    for each dr as DataRow in DataTables("表A").DataRows
        dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
    next
    Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
else
    DataTables("表A").DataCols.Add("mlsh", GetType(string),50)
    for each dr as DataRow in DataTables("表A").DataRows
        dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
    next
    Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
End If

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

主题：[求助]这种目录树形式如何实现