标题：如何自定义设置列表项目

 

ComboList

返回或设置列表项目，不同项目之间用符号“|”隔开。

例如：

Tables("订单").Cols("客户").ComboList = "湛江佳信公司|深圳汇丰公司|北京冠豪公司"

这样在订单表输入客户的时候，会出现一个下拉列表框，列出ComboList属性中给出的客户供选择。

再例如，从客户表中提取不重复的客户名称，作为订单表客户列的列表项目：

Tables("订单").Cols("客户").ComboList = DataTables("客户").GetComboListString("客户名称")

 

如何自定义实现?

Tables("订单").Cols("客户").ComboList = DataTables("客户").GetComboListString("客户名称") + “一公司|二公司”

 

 

Tables("订单").Cols("客户").ComboList = DataTables("客户").GetComboListString("客户名称") & “|一公司|二公司”