以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据的自动更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120294)

--  作者:lungby
--  发布时间:2018/6/12 10:47:00
--  数据的自动更新
有两个表,表A使用远程网络数据源,表B是本地表,现在想讲表B中的部分列数据与表A保持一致,每次更新后自动更新没有的行,请问如何实现?
--  作者:有点甜
--  发布时间:2018/6/12 10:48:00
--  

http://www.foxtable.com/webhelp/scr/2137.htm

 


--  作者:lungby
--  发布时间:2018/6/12 10:50:00
--  
可是这样的话,远程数据更新后,表B没有办法同步更新吧?
--  作者:有点甜
--  发布时间:2018/6/12 10:52:00
--  

你如何更新远程数据的?

 

需要同步数据的时候,就执行2楼代码。

 

 


--  作者:lungby
--  发布时间:2018/6/12 10:55:00
--  
是按2楼执行的,不过他是按照身份证号码进行比对,增加新的行,可是如果是已经导入的行更改了的话,就没有办法更新了
--  作者:lungby
--  发布时间:2018/6/12 10:55:00
--  
是按2楼执行的,不过他是按照身份证号码进行比对,增加新的行,可是如果是已经导入的行更改了的话,就没有办法更新了
--  作者:有点甜
--  发布时间:2018/6/12 10:58:00
--  

修改代码

 

Dim nr As DataRow = DataTables("员工").Find("身份证号码 = \'" & dr("身份证号码") & "\'")

If nr Is Nothing Then
    nr = DataTables("员工").AddNew()
End If
For Each dc As DataCol In dt.DataCols
    nr(dc.name) = dr(dc.name)
Next


--  作者:lungby
--  发布时间:2018/6/12 11:17:00
--  
谢谢啦