主题：【求助】ComboList与GetComboListString的使用

【求助】ComboList与GetComboListString的使用

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

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

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

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

怎么实现GetComboListString得到的值可以实现   卷宗编号|卷宗名称  这个格式的显示在组合框里面呢？但选择后 组合框里面的值只录入卷宗编号  谢谢！

代码如下：【怎么修正呢？】

Dim cmb7 As WinForm.ComboBox = e.form.Controls("ComboBox7")

cmb7.ComboList = "DataTables("卷宗入库").GetComboListString("卷宗编号","[办理状态] = '办理中'")|DataTables("卷宗入库").GetComboListString("卷宗名称","[办理状态] = '办理中'")"

Dim cmb7 As WinForm.ComboBox = e.form.Controls("ComboBox7")

cmb7.ComboList = "DataTables("卷宗入库").sqlGetComboListString("卷宗编号 + ',' + 卷宗名称","[办理状态] = '办理中'")

Dim cmb7 As WinForm.ComboBox = e.form.Controls("ComboBox7")

cmb7.ComboList = DataTables("卷宗入库").sqlGetComboListString("卷宗编号 + ',' + 卷宗名称","[办理状态] = '办理中'")

现在在点下拉组合框中到是可以组合显示了 

当选择之后  组合框的值只显示卷宗编号  怎么处理呢？

TextChanged事件

e.Sender.Text = e.Sender.Text.Split(",")(0)