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