自己写代码就行,以帮助的那个例子为例:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim rd As WinForm.TreeNode = trv.Nodes.add("全部")
For Each cp As String In DataTables("订单").GetUniqueValues("","产品")
Dim nd As WinForm.TreeNode = rd.Nodes.Add(cp)
For Each kh As String In DataTables("订单").GetUniqueValues("产品 = '" & cp & "'","客户")
nd.Nodes.add(kh)
Next
Next