例如窗口，可以在窗口的AfterLoad事件设置代码：
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT XM From (明细表)"
dt = cmd.ExecuteReader
e.Form.Controls("Comboox1").Combolist = dt.GetComboListString("客户名称")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT XM From (明细表)"
dt = cmd.ExecuteReader
e.Form.Controls("Comboox1").Combolist = dt.GetComboListString("客户名称")
按上述代码，不能从内部数据源生成列表项目。
[此贴子已经被作者于2013-2-26 8:30:41编辑过]
加好友 
发短信
Post By：2013/2/26 8:29:00 [只看该作者]
