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

照搬了论坛中的一个多列重复值筛选功能，当中间有一列是数值型时好象就会有问题

Dim ct As Table =args(0)

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("列名", Gettype(String), 32)

dtb.Build()

For Each dc As Col In CurrentTable.Cols

Dim Values1 As New List(Of String)

Values1.Add(dc.name)

For i As Integer = 0 To Values1.Count -1

Dim dr1 As DataRow

dr1 = DataTables("统计").Find("列名 ='" & dc.name & "'")

If dr1 Is Nothing Then

Dim dr As DataRow = DataTables("统计").AddNew()

dr("列名") = Values1(i)

End If

Dim Lms As String = e.Form.Controls("SXL").value

Dim Lmst() As String = Lms.Split(",")

Dim str0 As New List (Of String)

Dim str1 As New List (Of String)

Dim id0,id1,flt,celltext As String

'+++++++++++++++++++++++++++++++++

For Each r As Row In CurrentTable.Rows

celltext=Nothing

For i As Integer = 0 To Lmst.Length-1

celltext+=r(Lmst(i))

If str0.Contains(celltext) =False Then

id0 + = r("_Identify") & ","

Else

str1.Add(celltext)

End If

str0.Add(celltext)

'++++++++++++++++++++++++++++++++

For Each r As Row In CurrentTable.Rows

celltext=Nothing

For i As Integer = 0 To Lmst.Length-1

celltext+=r(Lmst(i))

If str1.Contains(celltext) Then

id1 + = r("_Identify") & ","

End If

'+++++++++++++++++++++++++++++++++

If id1 > "" Then

id1 = id1.Trim(",")

flt = "_Identify In (" & id1 & ")"

End If

CurrentTable.Filter = flt

CurrentTable.Sort= Lms

此主题相关图片如下：3f62e229-26ef-438b-93e4-aa2c70f2c90a.png

[此贴子已经被作者于2022/4/10 16:28:35编辑过]

主题：[求助]多列重复值筛选出错