Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导出目录树数据


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

主题：[求助]导出目录树数据
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]导出目录树数据  发帖心情 Post By：2017/11/7 23:08:00 [显示全部帖子]

老师，我要把目录树集合的数据（根目录\子目录\窗口名\按钮名称|按钮标题）复制到窗口控件管理表中对号入座。窗口控件管理表列名称“根目录\子目录\窗口名\按钮名称|按钮标题”

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 8:28:00 [显示全部帖子]

老师好，有的是根目录中直接是窗口控件我希望跳过窗口把窗口名称复制到窗口1中，同时把按钮名称和按钮标题拆分开复制到对应的列中。

 

 


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 12:12:00 [显示全部帖子]

我要把目录树集合的数据（根目录\子目录\窗口名\按钮名称|按钮标题）复制到窗口控件管理表中对号入座。窗口控件管理表列名称“根目录\子目录\窗口名\按钮名称|按钮标题”

 


图片点击可在新窗口打开查看此主题相关图片如下：2017-11-08 09 33 19.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/11/8 12:23:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 18:14:00 [显示全部帖子]

老师，我要把窗口1目录树集合的控件数据通过按钮复制到"窗口控件管理表"中,（对号入座）.

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复制.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 19:36:00 [显示全部帖子]

老师太感谢了！
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 19:46:00 [显示全部帖子]

老师，在集合控件时能不报错吗？


Dim tv As WinForm.TreeView = Args(0)
tv.Nodes.Clear
Dim nd As WinForm.TreeNode
Dim name As String
Dim sname() As String
For Each f As WinForm.Form In Forms
    name = f.Category
    sname = name.Split("\")
    Dim frmnd As WinForm.TreeNode
    If sname.Length = 1 AndAlso sname(0) = "" Then
        frmnd = tv.Nodes.Add(f.name)
    Else
        If tv.Nodes.Contains(sname(0)) = False Then
            nd = tv.Nodes.Add(sname(0))
        Else
            nd = tv.Nodes(sname(0))
        End If
        For i As Integer = 1 To sname.Length - 1
            If nd.Nodes.Contains(sname(i)) = False Then
                nd = nd.Nodes.Add(sname(i))
            Else
                nd = nd.Nodes(sname(i))
            End If
        Next
        frmnd = nd.Nodes.Add(f.name)
    End If
    Dim opened = f.Opened
    f.Open
    For Each c As object In f.controls
        try
            frmnd.Nodes.Add(c.name, c.name & " | " & c.Text)
        catch ex As exception
            frmnd.Nodes.Add(c.name)
        End try
    Next
    If opened = False Then f.Close
Next
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 20:00:00 [显示全部帖子]

老师，就是刚才的例子，在集合控件时被引用的控件是关闭状态就会报错。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 20:22:00 [显示全部帖子]

在集合控件时找不到控件报错，如，控件在集合时要打开的窗口表找不到。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 20:24:00 [显示全部帖子]

在集合控件时找不到控件报错，如，控件在集合时要打开的窗口表找不到。


图片点击可在新窗口打开查看此主题相关图片如下：2017-11-08 20 32 08.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/11/8 20:24:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/11/8 21:21:00 [显示全部帖子]

老师，类似这样的报错

图片点击可在新窗口打开查看此主题相关图片如下：2017-11-08 21 29 08.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复制.table
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06836 秒, 7 次数据查询