- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 项目买卖 (http://foxtable.net/bbs/list.asp?boardid=23)
---- 怎样用代码为ComboBox控件增加一条列表记录 (http://foxtable.net/bbs/dispbbs.asp?boardid=23&id=113931)
-- 发布时间：2018/1/25 14:05:00
-- 怎样用代码为ComboBox控件增加一条列表记录
Dim cj As WinForm.ComboBox = e.Form.Controls("厂家筛选")
cj.ComboList = DataTables("出库主表").GetComboListString("订单客户","已对账 = false")
用上面的代码给“厂家筛选”赋值后，还想再增加一条记录“全部”，之前用Powerbuilder编程时，列表框控件有一个函数additem，可以单独加记录，但在Foxtable里面好像没有，怎么实现上面的功能。
此主题相关图片如下：列表.jpg
[此贴子已经被作者于2018/1/25 14:05:44编辑过]
-- 发布时间：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编辑过]