Foxtable(狐表)用户栏目专家坐堂 → [讨论]目录树加载


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

主题:[讨论]目录树加载

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
[讨论]目录树加载  发帖心情 Post By:2013/11/20 13:16:00 [显示全部帖子]

目录树加载能否加载外部数据表?!!!

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 13:23:00 [显示全部帖子]

 Dim cmd As New SQLCommand
cmd.C
        Dim dt As DataTable
        cmd.CommandText = "SELECT 竞赛名称,项目,级别,学校,奖项,名次奖, Count([_Identify]) As 订单数 From {成绩表} 竞赛名称,项目,级别,学校,奖项,名次奖"
        dt = cmd.ExecuteReader()
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView5")
        trv.BuildTree(dt, "竞赛名称|项目|级别|学校|奖项|名次奖")
        trv.StopRedraw
        For Each nd As WinForm.TreeNode In trv.AllNodes
            Dim Value()As String
            Dim Filter As String
            Dim d1 As Date
            Dim d2 As Date
            Value = nd.FullName.Split("\") '注意这里用FullName属性,不能用FullPath属性
            Select Case nd.Level
                Case 0
                    nd.text = nd.text & "竞赛名称"
                    Filter = "竞赛名称 = " & value(0)
                Case 1
                    nd.text = nd.text & "项目"
                    Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1)
                Case 2
                    nd.text = nd.text & "级别"
                    Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2)
                Case 3
                    nd.text = nd.text & "学校"
                    Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3)
                Case 4
                    nd.text = nd.text & "奖项"
                    Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3) & " And 奖项 = " & value(4) & "'"
                'Case 5
                '    nd.text = nd.text & "名次奖"
                '    Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3) & " And 名次奖 = " & value(4) & "'"
                    
            End Select
            nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)",Filter) & "条)"
        Next
        trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
        trv.ResumeRedraw
以上是运行代码!!!

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
以上是错误提示!!!
[此贴子已经被作者于2013-11-20 14:45:55编辑过]

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 13:32:00 [显示全部帖子]

以下是引用逛逛在2013-11-20 13:28:00的发言:

数据源

什么意思?!


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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 13:43:00 [显示全部帖子]

目录树加载能否加载外部数据表?!!!
请专家指教!!!

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 13:56:00 [显示全部帖子]

代码怎么修改,谢谢!!!

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 14:48:00 [显示全部帖子]

谢谢专家指教!
上面代码执行时提示
图片点击可在新窗口打开查看此主题相关图片如下:未命名1.jpg
图片点击可在新窗口打开查看
“成绩表”中确实有《项目》列
问题在哪里,请指教!!!

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


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2013/11/20 14:51:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:未命名3.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看

 回到顶部