我的目的是想让目录更加智能化一些，目录显示是没有问题，只在统计上出错
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, xt)
Dim sz2() As String = xt.split("|") '选定的目录里有几列
For Each nd As WinForm.TreeNode In trv.AllNodes
Select Case nd.Level
Case 0
Dim ly As String = nd.text
Dim filter As String = "[" & sz2(0) & "]" & "=" & ly
'nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[sz2(0)] = '" & ly & "'") & ")"
nd.Text = nd.text & "(" & dt.Compute("Sum(数量)",filter) & ")"
Case 1
Dim sq As String = nd.text
Dim gs As Integer = nd.ParentNode.text.LastIndexOf("(")
Dim ly As String = nd.ParentNode.text.SubString(0,gs)
'nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[sz2(0)] = '" & ly & "' And [sz2(1)] = '" & sq & "'") & ")"
End Select
Next
加好友 
发短信
Post By：2021/4/6 16:18:00 [只看该作者]
