以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树能生成表就好了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17106)
--  作者：实话实说
--  发布时间：2012/3/4 8:03:00
--  目录树能生成表就好了

从表A提取不重复的字段到表B,派序是个问题,如果通过目录树节点顺序生成表就好了,因为目录树可以移动节点
--  作者：czy
--  发布时间：2012/3/4 9:40:00
--  
通过目录树不行吗？
--  作者：实话实说
--  发布时间：2012/3/4 9:48:00
--  
我想将目录树的节点一次性全部导入表
[此贴子已经被作者于2012-3-4 9:47:52编辑过]
--  作者：布莱克朱
--  发布时间：2012/3/4 14:09:00
--  
以下是引用实话实说在2012-3-4 9:48:00的发言：
我想将目录树的节点一次性全部导入表
 
 
 
[此贴子已经被作者于2012-3-4 9:47:52编辑过]

  应该可以的呀!
--  作者：实话实说
--  发布时间：2012/3/4 16:39:00
--  

那就帮帮忙吧(窗口1)

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树导入表.rar

[此贴子已经被作者于2012-3-4 16:38:55编辑过]
--  作者：czy
--  发布时间：2012/3/4 19:14:00
--  
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim t As Table = Tables("表A")
Dim n As Integer \'= t.Rows.Count -1
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim r As Row = t.AddNew
    r(t.cols(0)) = t.Rows(n)(0)
    r(t.cols(nd.Level)) = nd.Text
    n = t.Rows.Count -1
Next
--  作者：实话实说
--  发布时间：2012/3/4 19:30:00
--  
谢谢CZY,你真是个好人