主题：[求助]出现重复

这些列，公益林表肯定至少有一项是不相同的，比如多了空格之类的

乡|村|组|户主姓名|一卡通帐号|身份证号

测试了一下，没问题，一卡通账号不同啊。

DataTables("户主公益林").DataRows.clear
DataTables("户主公益林").StopRedraw
For Each nm() As String In DataTables("公益林").GetValues("乡|村|组|户主姓名|身份证号")
    Dim dr As DataRow = DataTables("户主公益林").AddNew()
    dr("乡") = nm(0)
    dr("村") = nm(1)
    dr("组") = nm(2)
    dr("户主姓名") = nm(3)
    'dr("一卡通帐号") = DataTables("公益林").GetComboListString("身份证号","身份证号 = '" & nm(4) & "'")
    dr("身份证号") = nm(4)
    dr("国家级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = '国家级'and 身份证号 = '" & nm(4) & "'")
    dr("省级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = '省级'and 身份证号 = '" & nm(4) & "'")
Next
DataTables("户主公益林").ResumeRedraw