以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选中行提取不重复列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117999)
--  作者：benwong2013
--  发布时间：2018/4/23 9:40:00
--  选中行提取不重复列
在窗口的table副本中有10行，目前想提取已经选中3行A列的不重复的值，请问如何处理？
--  作者：有点甜
--  发布时间：2018/4/23 9:44:00
--  

使用getvalues http://www.foxtable.com/webhelp/scr/2747.htm

 

加上筛选条件即可。

 

----------------------------

 

或者，循环你选中的3行，把不重复的值，添加如ls里面去 http://www.foxtable.com/webhelp/scr/0217.htm

 
--  作者：wyz20130512
--  发布时间：2018/4/23 9:52:00
--  
With Tables("表A")
    Dim values As New List(Of String)
    For i As Integer = .TopRow To .BottomRow
        If Not values.Contains(.Rows(i)("A")) Then
            values.Add(.Rows(i)("A"))
        End If
    Next
    For Each v As String In values
        Output.Show(v)
    Next
End With