主题：[求助]出现重复

按钮代码：

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("一卡通帐号") = nm(4)
    dr("身份证号") = nm(5)
    dr("国家级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = '国家级'and 户主姓名 = '" & nm(3) & "'")
    dr("省级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = '省级'and 户主姓名 = '" & nm(3) & "'")
Next
DataTables("户主公益林").ResumeRedraw