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