主题：清除内容

重复的留一行数据还是全部清除？

这个是保留一行数据的

Dim lst As New List(of String)
For Each dr As DataRow In DataTables("表C").DataRows
    If dr.IsNull("产品编号") = False AndAlso lst.Contains(dr("产品编号")) = False Then
        lst.Add(dr("产品编号"))
Else
        dr("A") = Nothing
        dr("B") = Nothing
    End If
Next

不保留

For Each dr As DataRow In DataTables("表C").DataRows
    If DataTables("表C").Compute("count(产品编号)","产品编号 = '" & dr("产品编号") & "'") > 1
        dr("A") = Nothing
        dr("B") = Nothing
    End If
Next