以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [讨论]目录树加载 (http://foxtable.com/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 以上是运行代码!!! 以上是错误提示!!!
[此贴子已经被作者于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 -- 谢谢专家指教! “成绩表”中确实有《项目》列 问题在哪里,请指教!!!
|