代码稍微调整一下
Dim cmd As new sqlcommand
cmd.commandtext="select 第一列,第二列 from {表A}"
Dim lsdt As DataTable=cmd.ExecuteReader()
e.Form.controls("table1").Table.datasource=lsdt
Dim cmb As WinForm.checkedComboBox
cmb = e.form.Controls("CCB1")
cmb.DisplayMember = "第二列" '设置显示列
cmb.ValueMember = "第一列" '设置取值列
cmb.DataSource = "窗口1_Table1" '列表项目来自于客户表