主题：怎样将表中的数据添加到组合框中

怎样将表中某个字段不重复的数据添加到ComboBox组合框中

如果窗体中有很多“ComboBox1"控件需要分别绑定不同字段用什么语句呢？

Dim cmb As WinForm.ComboBox
If  cmb = Forms("机具资料入库窗体").Controls("jijuleixingCombo ")   Then
    cmb.ComboList = DataTables("机具信息表").GetComboListString("机具类型")
Else If  cmb = Forms("机具资料入库窗体").Controls("suoshucangkuCombo")  Then
    cmb.ComboList = DataTables("仓库资料").GetComboListString("仓库名称")
End If
这样运行不了报错

运行时出错

Dim cmb As WinForm.ComboBox =  Forms("机具资料入库窗体").Controls("suoshucangkuCombo")
cmb.ComboList = DataTables("仓库资料").GetComboListString("仓库名称")

cmb  = Forms("机具资料入库窗体").Controls("kehuxingmingCombo")
cmb.ComboList = DataTables("客户资料").GetComboListString("客户姓名")

cmb= Forms("机具资料入库窗体").Controls("jijuxinghaoCombo")
cmb.ComboList = DataTables("机具信息表").GetComboListString("机具型号")

cmb = Forms("机具资料入库窗体").Controls("jijuleixingCombo")
cmb.ComboList = DataTables("机具信息表").GetComboListString("机具类型")

cmb = Forms("机具资料入库窗体").Controls("changjiaxingmingCombo")
cmb.ComboList = DataTables("机具信息表").GetComboListString("厂家名称")

cmb  = Forms("机具资料入库窗体").Controls("jijulaiyuanCombo")
cmb.ComboList = DataTables("供应商资料").GetComboListString("供应商名称")

cmb = Forms("机具资料入库窗体").Controls("jijusuoshujigouCombo")
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商机构名称")

cmb = Forms("机具资料入库窗体").Controls("jijusuoshujigongfuzerenCombo")
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商负责人姓名")

 

 

 

 

此主题相关图片如下：123.png


此主题相关图片如下：124.png