Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树导出到表


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

主题：目录树导出到表
帅哥哟，离线，有人找我吗？
实话实说
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		目录树导出到表  发帖心情 Post By：2016/1/10 10:17:00 [显示全部帖子]

窗口1的目录树会导出,窗口2的目录树搞不定,请求帮助

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树与表转换.zip
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2016/1/10 12:43:00 [显示全部帖子]

OK,谢谢

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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/2/4 11:11:00 [显示全部帖子]

图3
图片点击可在新窗口打开查看此主题相关图片如下：snap3.jpg
图片点击可在新窗口打开查看
图2
图片点击可在新窗口打开查看此主题相关图片如下：snap2.jpg
图片点击可在新窗口打开查看
图1
图片点击可在新窗口打开查看此主题相关图片如下：snap4.jpg
图片点击可在新窗口打开查看


图1是目录树结构
图2是想要导出的结果
图3是下面代码导出的结果
问题在型号规格列
DataTables("表C").DataRows.Clear
DataTables("表C").ResumeRedraw
DataTables("表C").StopRedraw
Dim trv As WinForm.TreeView = e.form.Controls("材料目录")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.nodes.Count = 0 Then
        Dim ary() As String = nd.FullPath.split(new Char() {"\", " "})
        If ary.length = 7 Then
            Dim ndr As DataRow = DataTables("表C").addnew
ndr("分类代码") = ary(0)
ndr("材料分类") = ary(1)
ndr("名称代码") = ary(2)
ndr("材料名称") = ary(3)
ndr("型规代码") = ary(4)
ndr("型号规格") = ary(5)
ndr("材料代码") = ary(6)      
        End If
    End If
Next
DataTables("表C").ResumeRedraw
Tables("表C").OpenView("1")

DataTables("表C").DataCols("型规代码").RaiseDataColChanged()
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/2/4 12:13:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：snap6.jpg
图片点击可在新窗口打开查看

耐火和绝缘目录树结构不一样
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/2/4 13:05:00 [显示全部帖子]

结果耐火节点可以导出，绝缘节点不能导出

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/2/4 14:07:00 [显示全部帖子]

OK谢谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询