首先要在理解代码的基础上使用，而不是只会抄。
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Producta As String = nd.DataRow("客户名称")
Dim Productb As String = nd.DataRow("产品代号")
Dim Product As String = nd.DataRow("订单关闭")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = '" & Producta & "'") & " 条)"
Case 1
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = '" & Producta & "' And 产品代号 = '" & Productb & "'") & "条)"
Case 2
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = '" & Producta & " 'And 产品代号 = '" & Productb & " 'and 订单关闭 = " & Product) & "条)"
Case 3
nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
End Select
Next
加好友 
发短信
Post By：2018/12/22 9:19:00 [显示全部帖子]
