[求助]筛选后判断重复值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

思路：

利用字典的特性，对筛选后的行列进行遍历。

Dim t As Table = Tables("询价表")

Dim zd As New Dictionary(Of String, Integer)

For Each r As Row In t.Rows

For i As Integer = 0 To 2

Dim c As String = t.Cols(i).name

If zd.ContainsKey(r(c)) = False Then '是否存在键1

zd.Add(r(c),1)

Else

zd(r(c)) = zd(r(c)) + 1

End If

For Each k As String In zd.Keys

If zd(k) > 1 Then

Output.Show(K & ":重复" & zd(k) & "次")

End If

此主题相关图片如下：foxtable_by_flashman.png

主题：[求助]筛选后判断重复值