主题：[求助]多值列目录树

1、

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("物料汇总").DataRows
    For Each s As String In dr("项目空间类型").split(",")
        If trv.Nodes.Contains(s) = False Then
            Dim nd = trv.nodes.Add(s)

            nd.text = nd.name & "(" & DataTables("物料汇总").compute("sum(数量)", "项目空间类型 like '%" & s & "%'") & ")"
        End If
    Next
Next