- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何优化以下代码的执行效率？？恳请老师指点！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106266)
-- 发布时间：2017/9/5 17:17:00
-- 如何优化以下代码的执行效率？？恳请老师指点！
此主题相关图片如下：2.jpg
上图左侧为目录树，左下角为刷新该目录树，目录树的Datatable有1500行数据左右，为sql服务器数据源，刷新目录树的代码执行效率非常低，刷新一次要等很长时间，如何才能优化下面这段代码，缩短执行时间？
\'2.目录树显示统计数据
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim kg As new String(".",24- nd.Name.Length*2)
Dim sum As Integer
Select nd.Level
Case 0
If nd.Name <> "全市数据" Then
sum = DataTables("特困人员表").SQLCompute("count([_Identify])","县市区 = \'" & nd.Name & "\'")
Else
sum= DataTables("特困人员表").SQLCompute("count([_Identify])","[_Identify] is not null")
End If
kg = kg & "......"
Case 1
sum = DataTables("特困人员表").SQLCompute("count([_Identify])","县市区 = \'" & nd.DataRow("县市区") & "\' and 乡镇 = \'" & nd.DataRow("乡镇") & "\'")
kg = kg & "..."
Case 2
sum = DataTables("特困人员表").SQLCompute("count([_Identify])","县市区 = \'" & nd.DataRow("县市区") & "\' and 乡镇 = \'" & nd.DataRow("乡镇") & "\' and 村居 = \'" & nd.DataRow("村居") & "\'")
End Select
If sum > 0 Then
nd.Text = nd.Name & kg & sum & "人"
End If
Next
[此贴子已经被作者于2017/9/5 17:18:24编辑过]
-- 发布时间：2017/9/5 17:42:00
--
1、尽量不要用sqlCompute，尽量把数据都加载出来，用Compute。或者是，先分组统计出结果，然后直接查询值。
2、你看是生成目录树慢，还是统计数据慢。如果是前者，你可以一层一层目录树而不是整体生成；如果是后者，看1，不要用sqlcompute统计。
[此贴子已经被作者于2017/9/5 17:42:45编辑过]
-- 发布时间：2017/9/5 17:54:00
--
谢谢老师！！