可以看看:
http://www.foxtable.com/help/topics/1995.htm
http://www.foxtable.com/help/topics/0688.htm
http://www.foxtable.com/help/topics/0696.htm
Dim chk As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
Dim cmd As New SQLCommand
cmd.CommandText = "SELECT DISTINCT 编号,客户,品名 From {订单}"
dt = cmd.ExecuteReader()
For each dr as datarow in dt.datarows
chk.items.Add(dr("编号") & "," & dr("客户") & "," & dr("品名"))
next