以文本方式查看主题

-  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)

--  作者:tongke
--  发布时间: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编辑过]

--  作者:tongke
--  发布时间: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编辑过]