专家坐堂-怎样将表中的数据添加到组合框中Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样将表中的数据添加到组合框中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102201)

--  作者：peibaomin
--  发布时间：2017/6/15 2:45:00
--  怎样将表中的数据添加到组合框中
怎样将表中某个字段不重复的数据添加到ComboBox组合框中

--  作者：有点蓝
--  发布时间：2017/6/15 8:44:00
--
参考：http://www.foxtable.com/webhelp/scr/0925.htm

--  作者：裴保民
--  发布时间：2017/6/15 10:01:00
--
已经绑定字段怎么设置一下组合框取消重复值呢？
[此贴子已经被作者于2017/6/15 10:03:01编辑过]

--  作者：有点蓝
--  发布时间：2017/6/15 10:12:00
--
不能使用绑定。请使用2楼的用法

--  作者：裴保民
--  发布时间：2017/6/15 11:00:00
--
Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("客户").GetComboListString("公司名称")
如果公司名有重复值！怎么设置成不重复值呢？　

--  作者：有点蓝
--  发布时间：2017/6/15 11:05:00
--
这样用不可能有重复的。如果有，说明数据里有看不见的空格或者其它字符

--  作者：裴保民
--  发布时间：2017/6/15 11:07:00
--
哦，谢谢！

--  作者：peibaomin
--  发布时间：2017/6/15 16:59:00
--

如果窗体中有很多“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
这样运行不了报错

--  作者：有点蓝
--  发布时间：2017/6/15 17:35:00
--
Dim cmb As WinForm.ComboBox = Forms("机具资料入库窗体").Controls("jijuleixingCombo ")
cmb.ComboList = DataTables("机具信息表").GetComboListString("机具类型")

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

--  作者：peibaomin
--  发布时间：2017/6/15 21:43:00
--

运行时出错

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