以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]目录树加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42727)

--  作者:wsxdwh
--  发布时间:2013/11/20 13:16:00
--  [讨论]目录树加载
目录树加载能否加载外部数据表?!!!
--  作者:wsxdwh
--  发布时间: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编辑过]

--  作者:逛逛
--  发布时间:2013/11/20 13:28:00
--  

数据源


--  作者:wsxdwh
--  发布时间:2013/11/20 13:32:00
--  
以下是引用逛逛在2013-11-20 13:28:00的发言:

数据源

什么意思?!


--  作者:wsxdwh
--  发布时间:2013/11/20 13:43:00
--  
目录树加载能否加载外部数据表?!!!
请专家指教!!!
--  作者:逛逛
--  发布时间:2013/11/20 13:54:00
--  
SQLCommand查询外部数据要指明数据源
--  作者:wsxdwh
--  发布时间:2013/11/20 13:56:00
--  
代码怎么修改,谢谢!!!
--  作者:逛逛
--  发布时间:2013/11/20 14:02:00
--  

Dim cmd As New SQLCommand

cmd.ConnectionName = "数据源名称"


--  作者:狐狸爸爸
--  发布时间:2013/11/20 14:35:00
--  

http://www.foxtable.com/help/topics/2344.htm

 


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