每天汇总数据，但是到月底的时候数据多了以后，系统就有点慢了，请问如何可以优化一下代码？ 还有以下代码不能实现多个文件合并，代码看看是不是错了？代码如下：
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() '开始合并
Next
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
加好友 
发短信
Post By：2015/4/2 9:37:00 [只看该作者]
