For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Product As String = nd.DataRow("销项fa piao状态")
Dim d2 As String = nd.DataRow("回款情况")
Select Case nd.Level
Case0
nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "'") & "个)"
Case 1
nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "' And 回款情况 = '" & d2 & "'") & "个)"
End Select
Next