Foxtable(狐表)用户栏目专家坐堂 → 下拉项目


  共有1481人关注过本帖树形打印复制链接

主题:下拉项目

帅哥,在线噢!
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:766 积分:8756 威望:0 精华:0 注册:2017/1/26 14:38:00
下拉项目  发帖心情 Post By: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
但选中后连同联系人一同写入控件中了


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/24 22:28:00 [只看该作者]

textChanged事件

 

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

 

 


 回到顶部