有一个客户信息表,里面有企业名称和联系人两列,有部分企业可能同时有两个联系人。
现想实现窗口ComboBox控件,下拉项目列表可以同时显示企业名称和联系人,但是选择后仅向控件填入企业名称,如何实习。我现在代码如下:在enter事件中写入
Dim name As String
Dim Arys As List(Of String())
Arys = DataTables("客户信息").SQLGetValues("企业名称|联系人") '列名用符号|分割
For Each Ary As String() In Arys
name = name & Ary(0) & "/" & Ary(1) & "|"
Next
name = name.Trim("|")
e.Form.Controls("ComboBox委托方").ComboList = name
但选中后连同联系人一同写入控件中了