以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 生成目录树速度慢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178264)
--  作者：建筑人生
--  发布时间：2022/6/26 19:17:00
--  [求助] 生成目录树速度慢
Dim tv As WinForm.TreeView
tv = e.Form.Controls("TreeView1")
Dim Arys1 As List(Of String())
Arys1 = DataTables("流水账").GetValues("科目表_一级|科目表_二级|科目表_三级|科目表_四级|科目表_五级")
With DataTables ("临时目录树表")
    .StopRedraw   
    .DataRows.Clear
    For Each Ary1 As String() In Arys1          
        Dim dr As DataRow = DataTables("临时目录树表").AddNew 
        dr("一级科目") = Ary1(0)
        dr("二级科目") = Ary1(1)
        dr("三级科目") = Ary1(2)
        dr("四级科目") = Ary1(3)
        dr("五级科目") = Ary1(4) 
    Next
    Dim Arys2 As List(Of String()) 
    Arys2 = DataTables("流水账").GetValues("对方科目_一级|对方科目_二级|对方科目_三级|对方科目_四级|对方科目_五级")
    For Each Ary2 As String() In Arys2       
        Dim dr As DataRow = DataTables("临时目录树表").AddNew 
        dr("一级科目") = Ary2(0)
        dr("二级科目") = Ary2(1)
        dr("三级科目") = Ary2(2)
        dr("四级科目") = Ary2(3)
        dr("五级科目") = Ary2(4) 
    Next
    .Save 
    .ResumeRedraw
End With
tv.BuildTree("临时目录树表", "一级科目|二级科目|三级科目|四级科目|五级科目")
[此贴子已经被作者于2022/6/26 19:17:58编辑过]
--  作者：有点蓝
--  发布时间：2022/6/26 20:55:00
--  
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SELECT DISTINCT 科目表_一级 as 一级科目, 科目表_二级 as 二级科目,科目表_三级 as 三级科目,科目表_四级 as 四级科目,科目表_五级 as 五级科目 From {流水账} union SELECT DISTINCT 对方科目_一级 as 一级科目, 对方科目_二级 as 二级科目,对方科目_三级 as 三级科目,对方科目四级 as 四级科目,对方科目_五级 as 五级科目 From {流水账}"
Dim dt As DataTable= cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"一级科目|二级科目|三级科目|四级科目|五级科目")
--  作者：建筑人生
--  发布时间：2022/6/26 22:23:00
--  

Dim cmd As New SQLCommand

cmd.ConnectionName = "cwsj"

 

cmd.CommandText = "S  ELECT   DISTINCT 科目表_一级 as 一级科目, 科目表_二级 as 二级科目,科目表_三级 as 三级科目,科目表_四级 as 四级科目,科目表_五级 as 五级科目 Fro  m{流水账} union S  ELECT DISTINCT 对方科目_一级 as 一级科目, 对方科目_二级 as 二级科目,对方科目_三级 as 三级科目,对方科目四级 as 四级科目,对方科目_五级 as 五级科目 Fro   m{流水账}"

Dim dt As DataTable = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "一级科目|二级科目|三级科目|四级科目|五级科目")

 

运行错误

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.6.22.1
错误所在事件：
详细错误信息：
至少一个参数没有被指定值。
[此贴子已经被作者于2022/6/26 22:31:02编辑过]
--  作者：有点蓝
--  发布时间：2022/6/26 22:32:00
--  
检查一下列名
--  作者：建筑人生
--  发布时间：2022/6/26 22:40:00
--  

cmd.CommandText = "S  ELECT DISTINCT 科目表_一级 as 一级科目,科目表_二级 as 二级科目,科目表_三级 as 三级科目,科目表_四级 as 四级科目,科目表_五级 as 五级科目 Fro  m{流水账} union S  ELECT DISTINCT 对方科目_一级 as 一级科目,对方科目_二级 as 二级科目,对方科目_三级 as 三级科目,对方科目四级 as 四级科目,对方科目_五级 as 五级科目 Fro  m{流水账}"

 

没错啊

--  作者：建筑人生
--  发布时间：2022/6/26 22:44:00
--  

找到了，谢谢