Foxtable(狐表)用户栏目专家坐堂 → 目录树能生成表就好了


  共有8177人关注过本帖树形打印复制链接

主题:目录树能生成表就好了

帅哥哟,离线,有人找我吗?
实话实说
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
目录树能生成表就好了  发帖心情 Post By:2012/3/4 8:03:00 [只看该作者]

从表A提取不重复的字段到表B,派序是个问题,如果通过目录树节点顺序生成表就好了,因为目录树可以移动节点


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/4 9:40:00 [只看该作者]

通过目录树不行吗?

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2012/3/4 9:48:00 [只看该作者]

我想将目录树的节点一次性全部导入表
[此贴子已经被作者于2012-3-4 9:47:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
布莱克朱
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2012/3/4 14:09:00 [只看该作者]

以下是引用实话实说在2012-3-4 9:48:00的发言:
我想将目录树的节点一次性全部导入表
 
 
 
[此贴子已经被作者于2012-3-4 9:47:52编辑过]

  应该可以的呀!


 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2012/3/4 16:39:00 [只看该作者]

那就帮帮忙吧(窗口1)

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

[此贴子已经被作者于2012-3-4 16:38:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2012/3/4 19:30:00 [只看该作者]

谢谢CZY,你真是个好人

 回到顶部