以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉项目  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120793)
--  作者：qaz17909
--  发布时间：2018/6/23 23:14:00
--  下拉项目
有一个客户信息表，里面有企业名称和联系人两列，有部分企业可能同时有两个联系人。
现想实现窗口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
但选中后连同联系人一同写入控件中了
--  作者：有点甜
--  发布时间：2018/6/24 22:28:00
--  

textChanged事件

 

e.sender.Text = e.sender.text.split("/")(0)