老师,新年好!我用帮助文档中下面的代码可以实现数据导入,但我发现有重复的记录,我只想保留重复记录中的第一个,其余重复的都删掉,请问怎么修改?谢谢!!
Dim dlg As New OpenFileDialog
dlg.Filter= "excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel"
mg.SourceTableName = "债权人基本情况表$"
mg.DataTableName = "债权人基本情况表"
If DataTables("债权人基本情况表").HasChanges = True Then
DataTables("债权人基本情况表").Save
End If
End If