Foxtable(狐表)用户栏目专家坐堂 → 数据的自动更新


  共有2079人关注过本帖树形打印复制链接

主题:数据的自动更新

帅哥哟,离线,有人找我吗?
lungby
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
数据的自动更新  发帖心情 Post By:2018/6/12 10:47:00 [只看该作者]

有两个表,表A使用远程网络数据源,表B是本地表,现在想讲表B中的部分列数据与表A保持一致,每次更新后自动更新没有的行,请问如何实现?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 10:48:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/6/12 10:50:00 [只看该作者]

可是这样的话,远程数据更新后,表B没有办法同步更新吧?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 10:52:00 [只看该作者]

你如何更新远程数据的?

 

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/6/12 10:55:00 [只看该作者]

是按2楼执行的,不过他是按照身份证号码进行比对,增加新的行,可是如果是已经导入的行更改了的话,就没有办法更新了

 回到顶部
帅哥哟,离线,有人找我吗?
lungby
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/6/12 10:55:00 [只看该作者]

是按2楼执行的,不过他是按照身份证号码进行比对,增加新的行,可是如果是已经导入的行更改了的话,就没有办法更新了

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/6/12 11:17:00 [只看该作者]

谢谢啦

 回到顶部