以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何去除多余的重复的数据行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78895)

--  作者:农村人
--  发布时间:2015/12/19 20:03:00
--  [求助]如何去除多余的重复的数据行
以下代码能够返回不重复的联系方式,那么,如何去除多余的重复的数据行呢?
Dim Products As List(Of String)
Products = DataTables("货运信息").GetValues("联系方式")
For Each Product As String In Products
    Output.Show(Product)
Next

--  作者:lsy
--  发布时间:2015/12/20 8:21:00
--  
Dim t As Table = CurrentTable
Dim lst As New List(Of String)
For i As Integer = t.Rows.Count - 1 To 0 Step - 1
    If lst.Contains(t.Rows(i)("第一列")) Then
        t.Rows(i).Delete
    Else
        lst.Add(t.Rows(i)("第一列"))
    End If
Next

--  作者:大红袍
--  发布时间:2015/12/20 11:54:00
--  

筛选后,删除

 

http://www.foxtable.com/help/topics/2712.htm