参考:
http://www.foxtable.com/webhelp/scr/1284.htm
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Product As String= nd.DataRow("责任人")
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Select Case nd.Level
Case 0
nd.Text = nd.text & "责任人(" & nd.DataRow("Sum(订单数)","责任人 ='" & Product & "' ") & "条)"
Case 1
nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)","责任人='" & Product & "' And 年 = " & Year) & "条)"
Case 2
这里自己参考改
Case 3
nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
End Select
Next