以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中的组合框从多列中取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99158)
--  作者：zhimin
--  发布时间：2017/4/13 15:28:00
--  窗口中的组合框从多列中取值
窗口中的组合框从指定单列中取值很容易。如何从多列中取值？谢谢！
--  作者：有点色
--  发布时间：2017/4/13 15:41:00
--  

参考代码

 

Dim cs() As String = {"第一列", "第二列"}
Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("表A").Select("")
    For Each c As String In cs
        If ls.contains(dr(c)) = False Then
            ls.add(dr(c))
        End If
    Next
Next
Dim str As String = String.join("|", ls.ToArray)
msgbox(str)