以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获取选定区域内的某一列的所有值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116660)
--  作者：chnfo
--  发布时间：2018/3/28 23:02:00
--  [求助]如何获取选定区域内的某一列的所有值
在界面的列表中，拖动选择了表中的第10~20行。
如何快速获取这么多行的A列的不重复值合并为字符串？

除了这样？
Dim t As Table = Tables("Y")
Dim k As String 
For i As Integer = t.TopPosition To t.BottomPosition
    k += "|" & t.Rows(i)("C")
Next
Output.Show(k)
[此贴子已经被作者于2018/3/28 23:04:01编辑过]
--  作者：有点甜
--  发布时间：2018/3/28 23:10:00
--  
Dim t As Table = Tables("表A")
Dim ls As new List(of String)
For i As Integer = t.TopPosition To t.BottomPosition
    If ls.Contains(t.rows(i)("第一列")) = False Then
        ls.add(t.Rows(i)("第一列"))
    End If
Next
Output.Show(String.Join("|", ls.ToArray))