我有一个SQL的未加载的后台数据表，叫订单，如下图 

此主题相关图片如下：qq截图20120325183959.png

然后我在窗口中设计了一个组合框，一个目录树，和一个复选列表框，

 
此主题相关图片如下：qq截图2.png

然后在“筛选”按钮中设计了如下代码

Dim cmb2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.ConnectionNam e = "数据库"

cmd.CommandText = "SELECT 订单号,客户,单价,数量 From {订单} where [客户] = \'" & e.Form.Controls("客户").value & "\'"

dt = cmd.ExecuteReader()

trv.CreateTree(dt, "订单号")

cmb2.ComboList= dt.GetComboListString("订单号")

这样我就可以在目录树和复选列表框中得到某个客户的订单列表了，

但这个列表只有“订单号”这一列，很不友好，如果要实现 “订单号|单价|数量” 这样的格式，该如何修改代码？

因为是SQL的外部数据源，所以不好发，我现在可以做到下图这样

此主题相关图片如下：qq截图20120326002930.png

但因为这样显示很不友好，并不能直观的看出订单的情况，所以想能够做成取数取的是“订单号”，显示则是“订单号|单价|数量”这样的形式。

好像没看明白。

Dim cmb2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName  = "数据库"
cmd.CommandText = "SELECT 订单号,客户,单价,数量 From {订单} where [客户] = \'" & e.Form.Controls("客户").value & "\'"
dt = cmd.ExecuteReader()
trv.CreateTree(dt, "订单号")
Dim Lis As List(Of String()) = dt.GetUniqueValues("", "订单号","单价","数量")
Dim str As String
For Each Li As String() In Lis
    str & = Li(0) & " " & Li(1) & " " & Li(2) & "|"
Next
cmb2.ComboList= str