筛选中显示重复行如何用代码写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选中显示重复行如何用代码写？

共有18824人关注过本帖树形打印复制链接主题：筛选中显示重复行如何用代码写？

shixia

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：759 积分：7038 威望：0 精华：1 注册：2008/9/2 20:04:00

筛选中显示重复行如何用代码写？ 发帖心情

Post By：2009/2/27 12:21:00 [只看该作者]

筛选中有显示重复值＼排除重复值＼显示冗余值，不知在命令中如何用代码表示

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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()

下一主题 >> << 上一主题

主题：筛选中显示重复行如何用代码写？