主题：[求助] 优化代码

1、数据多，你这样删除重复值，肯定会慢；

 

2、不能实现多个文件

 

mg.SourcePath =dlg.FileName '指定数据文件

 

改成

 

mg.SourcePath = fl '指定数据文件

试试用下面的方法。

 

Dim str As String = "第一列,第二列"
Dim idx As String = ""
Dim ary() As String = str.Split(",")
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", str)
    Dim flag As Boolean = False
    For Each a As String In ary
        If pdr IsNot Nothing AndAlso dr(a) <> pdr(a) Then
            flag = True
        End If
    Next
    If flag = False Then
        count += 1
    Else
        'If count = 1 Then
            idx &= pdr("_Identify") & ","
        'End If
        count = 1
    End If
    pdr = dr
Next

For Each a As String In ary
    If pdr IsNot Nothing AndAlso Tables("表A").Rows(Tables("表A").Rows.count-2)(a) <> pdr(a) Then
        idx &= pdr("_Identify") & ","
    End If
Next

DataTables("表A").DeleteFor("_Identify not in (" & idx.trim(",") & ")")

 意思是：按顺序取出表数据；判断此行和上一行是否为相同的内容，如果是，不操作，如果不是，就加入到idx里面去；最后根据idx删除那些相同的内容

 没办法，用代码只能是这样弄。代码应该没错。