主题：同步表耗时太长

各位老师：一个系统，用数据库外部表，出库单汇总与出库单明细关联，在同步表时耗时太长。

代码如下：

Dim st As Date = Date.Now  '将开始时间保存在变量st中
DataTables("出库单明细").RemoveFor("出库日期 = '" & e.Form.Controls("DateTimePicker1").Text & "'")
DataTables("出库单明细").AppendLoad("出库日期 = '" & e.Form.Controls("DateTimePicker1").Text & "'")

DataTables("出库单汇总").StopRedraw
DataTables("出库单汇总").RemoveFor("出库日期 = '" & e.Form.Controls("DateTimePicker1").Text & "'")
DataTables("出库单汇总").AppendLoad("出库日期 = '" & e.Form.Controls("DateTimePicker1").Text & "'")
DataTables("出库单汇总").ResumeRedraw
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

 

 

耗时如下图：

 

此主题相关图片如下：微信图片_20230916094003.png

 

请各位老师，怎样修改一下代码，将耗时减少！

谢谢！