[求助] 优化代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

每天汇总数据，但是到月底的时候数据多了以后，系统就有点慢了，请问如何可以优化一下代码？还有以下代码不能实现多个文件合并，代码看看是不是错了？

代码如下：

Dim pr As Integer = DataTables("加硫").DataRows.Count '查询表行数

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "excel文件|*.xls" '设置筛选器

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Merger

For Each fl As String In dlg.FileNames

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

mg.Format = "excel" '指定格式

mg.SourceTableName = "data$" '指定要合并的表

mg.DataTableName = "加硫" '指定接收数据的表

mg.Merge() '开始合并

Dim i As Integer

For i = DataTables("加硫").DataRows.Count-1 To 0 Step -1

Dim dr As DataRow = DataTables("加硫").DataRows(i)

Dim dr2 As DataRow = DataTables("加硫").Find("管理号码='" & dr("管理号码") & "' and 良品='" & dr("良品") & "'and 管理号码1='" & dr("管理号码1") & "'and 工号='" & dr("工号") & "' and _Identify <> " & dr("_Identify"))

If dr2 IsNot Nothing Then

dr2.Delete

End If

Next '去重复值

DataTables("加硫").DeleteFor("[管理号码] is null or [良品] is null") '删除空白行

pr = DataTables("加硫").DataRows.Count - pr '查询表行数

MessageBox.Show("成功导入数据"& pr &"条","提示")

Syscmd.Table.ToggleSortAndFilter()

DataTables("加硫").Save()

End If

合并文件,可以把文件名写为同一个即可

怎么理解这句话，是把要导入的文件名写成一样吗？

我好像搞错了你的意思,你的意思是什么?

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

2、不能实现多个文件

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

改成

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

谢谢你回复！

1.希望可以合并多个EXCEl文件，但是我现在的代码不可以。

2.现在的代码，数据多了以后，系统变得很慢，因为要逐行匹配重复的数据。希望可以优化一下代码

1、数据多，你这样删除重复值，肯定会慢；难道这个就没有其它办法吗？

试试用下面的方法。

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(",") & ")")

[此贴子已经被作者于2015/4/2 10:45:36编辑过]

可以把代码的大概意思告诉我。或注解一下代码，谢谢

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

主题：[求助] 优化代码