每个表增加一个[更新时间]列,到datacolchanged事件更新这个时间列为最新值。笔记本连入互联网,连接2个数据源,然后把[更新时间]列>上一次同步时间的所有数据更新过去,类似:
http://www.foxtable.com/webhelp/topics/1533.htm
比如
dim 上一次更新时间 as date = #01/22/2024#
For Each dr1 As DataRow In DataTables("数据源1表A").Select("[更新时间] > #" & 上一次更新时间 &"#")
Dim dr2 As DataRow = DataTables("数据源2表A").find("编号='" & dr1("编号") & "'")
if dr2 is nothing then ‘如果没有这个编号数据,就新增
dr2 = DataTables("数据源2表A").AddNew()
end if
For Each dc As DataCol in DataTables("数据源1表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next