怎样用代码为ComboBox控件增加一条列表记录 - 项目买卖 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 项目买卖 → 怎样用代码为ComboBox控件增加一条列表记录

共有4258人关注过本帖树形打印复制链接主题：怎样用代码为ComboBox控件增加一条列表记录

tongke

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：101 积分：932 威望：0 精华：0 注册：2018/1/23 10:52:00

怎样用代码为ComboBox控件增加一条列表记录 发帖心情

Post By：2018/1/25 14:05:00 [只看该作者]

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家筛选")

cj.ComboList = DataTables("出库主表").GetComboListString("订单客户","已对账 = false")

用上面的代码给“厂家筛选”赋值后，还想再增加一条记录“全部”，之前用Powerbuilder编程时，列表框控件有一个函数additem，可以单独加记录，但在Foxtable里面好像没有，怎么实现上面的功能。
图片点击可在新窗口打开查看此主题相关图片如下：列表.jpg

[此贴子已经被作者于2018/1/25 14:05:44编辑过]

tongke

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：101 积分：932 威望：0 精华：0 注册：2018/1/23 10:52:00

自己搞定了

Post By：2018/1/25 14:55:00 [只看该作者]

自己搞定了，只需要在原有列表值后面加一句：& "|全部"，就可以了。修改后如下：

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家筛选")

cj.ComboList = DataTables("出库主表").GetComboListString("订单客户","已对账 = false") & "|全部"

通过仔细看教程，发现ComboList的Items是字符集合，表示所有的自定义列表项目。

那么就可以用集合的方法来操作了：

cj.ComboList.Items.add("全部")

还可以插入：

cj.ComboList.Items.Insert(0,"全部")

区别是一个在末尾，一个在第一个。

[此贴子已经被作者于2018/1/25 16:18:58编辑过]

主题：怎样用代码为ComboBox控件增加一条列表记录