主题：复选列表框取值？

参考：
 
http://www.foxtable.com/help/topics/0392.htm

 
Dim Arys As List(Of String())

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
Arys = DataTables("订单").GetUniqueValues("打印 = 0", "编号","品名")
For Each Ary As String() In Arys

    clb.items.Add(ary(0) & "," & ary(1))
Next