获取有重复值记录,有更优化的代码吗? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim drs As List(of DataRow) = DataTables("生产合同").SQLSelect("1 = 1") '找出所有记录

Dim 记录数 As Integer = 0

Dim 列表值 As String = ""

For Each dr As DataRow In drs '逐条记录循环,统计相同记录的数量

记录数 = DataTables("生产合同").SQLCompute("Count(*)","生产合同编号 = '" & dr("生产合同编号") & "'")

If 记录数 > 1 AndAlso 列表值.Contains(dr("生产合同编号")) = False Then

列表值 = 列表值 & dr("生产合同编号") & "|"

End If

列表值 = 列表值.TrimEnd("|")

OUTPUT.SHOW(列表值)

以上代码有更优化的方式吗?

主题：获取有重复值记录,有更优化的代码吗?