在项目中的本地表使用高速合并速度很慢，保存表的速度也很慢，数据行大概为9000行。
检查过全局代码、全局函数、表事件datacolchanged、全局表事件。
都没有效果，本地表高速合并、保存9000行需要大概15分钟的时间。
试过：
SystemReady = False
'追加数据代码
SystemReady = True
的方式，依然无效。速度还是很慢。
我重新新建了一个空项目，直接高速导入一张表，速度很快，然后把这张表清空行，只保留表格式。然后进行高速合并，速度也很快。
求老师指点
导入按钮代码为：
SystemReady = False
Try
DataTables("分仓库存").DataRows.Clear
Tables("导入数据_Table1").DataSource = DataTables("分仓库存")
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 = "数据段1$" '指定要合并的表
mg.DataTableName = "分仓库存" '指定接收数据的表
mg.Merge() '开始合并
End If
DataTables("分仓库存").Save
DataTables("本地关联表").DataRows.Clear
Catch ex As Exception
MessageBox.Show("追加数据失败")
End Try
SystemReady = True
[此贴子已经被作者于2018/8/31 15:09:01编辑过]
加好友 
发短信
Post By：2018/8/31 15:00:00 [显示全部帖子]
