Dim cmb1 As WinForm.ComboBox
cmb1 = Forms("进货单列表").Controls("Ckname")
cmb1.ComboList = DataTables("进货单").GetComboListString("仓库名称")
Dim cmb As WinForm.ComboBox
---------------------------------------------------
cmb = Forms("进货单列表").Controls("ComboBox1")
cmb.DisplayMember = "名称" '设置显示列
cmb.ValueMember = "名称" '设置取值列
cmb.DataSource = "仓库" '列表项目来自于客户表