以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选中显示重复行如何用代码写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1956)
--  作者：shixia
--  发布时间：2009/2/27 12:21:00
--  筛选中显示重复行如何用代码写？
筛选中有显示重复值＼排除重复值＼显示冗余值，不知在命令中如何用代码表示
--  作者：don
--  发布时间：2009/2/27 12:44:00
--  

大概这样:
Dim T,T1,Ts As String
Dim Ls As List(Of String)
Dim Da As DataTable  = DataTables("表A")

Ls = Da.GetUniqueValues("","第一列")
For Each T In Ls
    T1 = "[第一列] = \'" & T & "\'"
    if Da.Compute("count(第一列)",T1)>1
        Ts = Ts & " or " & T1
    End If
Next
Tables("表A").Filter= Ts.substring(4)
Tables("表A").Sort = "第一列"
--  作者：czy
--  发布时间：2009/2/27 13:00:00
--  
我觉得还是用菜单中的代码较方便，如在窗口中插入ComboBox控件，在控件中选择列名称，然后用下面的代码就可以筛选出重复值。


Dim ColName As String = e.Form.Controls("ComboBox1").Value
With CurrentTable
     CurrentTable.Select(.RowSel, .Cols(ColName).Index)
End With
Syscmd.Filter.HideSameValues()