以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】ComboList与GetComboListString的使用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108813)

--  作者:李孝春
--  发布时间:2017/10/30 12:29:00
--  【求助】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("卷宗名称","[办理状态] = \'办理中\'")"

[此贴子已经被作者于2017/10/30 12:31:29编辑过]

--  作者:有点甜
--  发布时间:2017/10/30 12:35:00
--  

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

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

[此贴子已经被作者于2017/10/30 12:35:25编辑过]

--  作者:李孝春
--  发布时间:2017/10/30 12:44:00
--  回复:(有点甜)Dim cmb7 As WinForm.ComboBox = e.f...
有点甜老师 报错如下:

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20171030124320.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/10/30 15:00:00
--  

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

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


--  作者:李孝春
--  发布时间:2017/10/30 16:28:00
--  回复:(有点甜)Dim cmb7 As WinForm.Comb...

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

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


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

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


--  作者:有点甜
--  发布时间:2017/10/30 16:37:00
--  

TextChanged事件

 

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


--  作者:李孝春
--  发布时间:2017/10/30 16:41:00
--  回复:(有点甜)TextChanged事件 e.Sender....
谢谢 有学到一招