Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法


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

主题：语法解法
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 10:18:00 [只看该作者]

我看了的，你创建的根目录是手工创建（即单个创建的），但我想先定个一个变量存放要根据的根目录，通过代码批量创建，以后增加时，我直接修改变这个变量即可
dim  bl_trv厂商 As String() = {"按【类型】划分","按【公司】划分","按【区域】划分","按【创建者】划分","按【创建日期】划分","按【付款周期】划分"}

Dim trv厂商 As WinForm.TreeView = e.Form.Controls("Trv供货厂商")

trv厂商.Nodes.Clear   '清除所有节点

'====添加目录树的【节点】

For i As Integer = 0 To bl_trv厂商.Length-1

    Dim trvnd厂商 As WinForm.TreeNode

    trvnd厂商=trv厂商.Nodes.Add("Root" & i,bl_trv厂商(i))

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 10:19:00 [只看该作者]

接下来我想根据指定表中的数据在根目录下生成子目录

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/2 10:46:00 [只看该作者]

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim ary1() = {"按【类型】划分", "按【名称】划分"}
Dim ary2() = {"ktokk", "ktokk"}
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
For i As Integer = 0 To ary1.length-1
    Dim nd As WinForm.TreeNode = trv.nodes.Add(ary1(i))
    For Each lx As String In dt.GetValues(ary2(i))
        nd.nodes.Add(lx)
    Next   
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 14:02:00 [只看该作者]

请问下老师，如按【名称】划分下面还需要加一个子目录后，才根据表生成目录，又应怎么修改代码
Dim ary3() = {"外部供应商", "内部供应商"}
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 14:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：目录树11.png
图片点击可在新窗口打开查看
代码：
'用代码批量生成[根目录]
Dim ary1() = {"产品","客户","雇员"}

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
trv.nodes.Clear
Dim dt As DataTable
Dim cmd As new SQLCommand
For i As Integer = 0 To ary1.length-1
    nd=trv.nodes.Add(Ary1(i))
    Select Case nd.name
        Case "产品"
            cmd.CommandText="select distinct 产品 f rom {订单}"
            dt=cmd.ExecuteReader
            For Each dr As DataRow In dt.DataRows
                nd.nodes.add(dr("产品"))
            Next
        Case "客户"
            Dim ary2() = {"外部","内部"}
            For i1 As Integer = 0 To ary2.length-1
                nd=trv.nodes.add(ary2(i))
                Select Case nd.name
                    Case "外部"
                        cmd.CommandText="select distinct 客户 f rom {订单}"
                        dt=cmd.ExecuteReader
                        For Each dr As DataRow In dt.DataRows
                            nd.nodes.add(dr("客户"))
                        Next
                End Select
            Next
    End Select
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  156楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 14:25:00 [只看该作者]

请问下，应怎么修改
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  157楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/2 15:04:00 [只看该作者]

不理解你的意思，请具体上传一个实例，说明要做到的效果。所说的效果，必须和你给的例子匹配。

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 15:10:00 [只看该作者]

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 15:11:00 [只看该作者]


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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/11/2 15:13:00 [只看该作者]

我想实现按变量一生成根目录（产品/客户/雇员），产品目录下是根据表生成的节点，客户目录下添加子目录（内部/外部），内部子目录下根据表生成节点

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