以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在窗口的combobox里实现多列显示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65036)

--  作者:likaibin1983
--  发布时间:2015/3/7 21:29:00
--  [求助]如何在窗口的combobox里实现多列显示?
请问如何实现在窗口的combobox里实现多列显示?

例如下图1中的combobox类似图二那样显示,但在box里取值只取其中一列:

图1:

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图2:

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2015/3/8 10:49:00
--  

你可以合成多列,比如

 

Dim arys As List(Of String()) = DataTables("表A").GetValues("第一列|第二列", "第一列 is not null")
Dim str As String = ""
Dim s1, s2 As Integer
For Each s As String() In arys
    If s(0).Length > s1 Then
        s1 = s(0).Length
    End If
    If s(1).Length > s2 Then
        s2 = s(1).Length
    End If
Next
For Each s As String() In arys
    str &= s(0).PadLeft(s1) & "/" & s(1).PadLeft(s2) & "|"
Next
e.Form.Controls("ComboBox1").ComboList = str.Trim("|")