如何修正代码实现多行数据指定字段值相同的行保留一行不相同的行保留最后当前表中数据指定条件下的数据没有重复行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim s As String

dim filter as string

Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

dim idx as integer = 0

For Each Index As Integer In l.CheckedIndices

dim c as string = l.Items(Index)

s = s & "|" & c

if filter > "" then filter = filter & " and "

if dataTables(Vars("btname")).datacols(c).IsNumeric

filter = filter & c & "={" & idx & "}"

elseif dataTables(Vars("btname")).datacols(c).IsDate

filter = filter & c & "=#{" & idx & "}#"

else

filter = filter & c & "='{" & idx & "}'"

end if

idx += 1

s = s.trim("|")

dim dr as datarow

生成"比对表"的代码

for each sr() as string in dataTables(Vars("btname")).GetValues(s)

dr = dataTables(Vars("btname")).find(CExp(filter,sr))

if dr isnot nothing then

Dim r As Row = Tables("比对表").addnew

For Each dc As Col In Tables(Vars("btname")).Cols

r(dc.name) = dr(dc.name)

end if

主题：如何修正代码实现 多行数据指定字段值相同的行保留一行 不相同的行保留 最后当前表中数据指定条件下的数据没有重复行