主题：保存外部数据的小问题

 

有两个表：外部数据表、内部数据表，表结构相同，其中有两列是【姓名】【台帐年月】

其外部数据源为：

Provider=SQLOLEDB.1;Password=******;Persist Security Info=True;User ID=sa;Initial Catalog=***;Data Source=***.***.**.**

在窗体中有三个按钮

 

第一按钮：【加载外部数据】

Dim Filter As String

Filter = " 台帐年月 = 201509 "

DataTables("外部数据表").LoadFilter = Filter '设置加载条件

DataTables("外部数据表").Load()

第二按钮：【内部数据表复制到外部数据表】

 

For Each r1 As DataRow In DataTables("外部数据表").Select(" 台帐年月 = 201509 ")

    r1.delete  '删除【表】中符合减少条件的行

Next

For Each dr1 As DataRow In DataTables("内部数据表").Select(" 台帐年月 = 201509 ")

    Dim dr2 As DataRow = DataTables("外部数据表").AddNew()

    For Each dc As DataCol In DataTables("内部数据表").DataCols

        dr2(dc.Name) = dr1(dc.name)

    Next

Next

第三按钮：【保存外部数据表】

DataTables("外部数据表").save()

请教：第三个按钮保存数据的时候，由于数据量较大，需要比较长的时间才能把数据保存到服务器

1、能否有针对时间较长的解决方法

2、在保存外部数据表的时候，能否出现一个窗口，窗口滚动显示已经保存的当前行的【姓名】、行数以及保存结束时总记录的条数，这样就知道保存的进度了。