Foxtable(狐表)用户栏目专家坐堂 → 同步表


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

主题:同步表

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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
同步表  发帖心情 Post By:2018/4/10 9:54:00 [只看该作者]

同步表有什么好的办法吗?   用计划管理  调的时间短了  总是刷新 提示加载**表    
能不能有任何改动以后就自动执行同步表     要怎么实现这个功能

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


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


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


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

如果使用【同步表】方式,只能用定时器,没有其他方法。

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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
  发帖心情 Post By:2018/4/10 10:52:00 [只看该作者]

定时器   总是提示  加载**表    这个提示能隐藏吗

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


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

同步所有表代码,这样写

 

For Each dt As DataTable In DataTables
    dt.load
Next


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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
  发帖心情 Post By:2018/4/16 8:12:00 [只看该作者]

这样会出一个问题     每次同步   焦点单元格都会跳到第一行    严重影响使用

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


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

以下是引用q2520在2018/4/16 8:12:00的发言:
这样会出一个问题     每次同步   焦点单元格都会跳到第一行    严重影响使用

 

参考

 

For Each dt As Table In Tables
    Dim id As String = dt.current("_Identify")
    dt.DataTable.load
    Dim i As Integer = dt.FindRow("_Identify = '" & id & "'")
    If i >= 0 Then
        dt.Position = i
    End If
Next

 


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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
  发帖心情 Post By:2018/4/16 8:57:00 [只看该作者]

效果也不是太好   输入中  也会有影响    我放在项目事件里用还 好点   只是更新频率不够高   
能不能检测到任何表有改动以后    就自动执行一次同步

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


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

For Each dt As Table In Tables
    If dt.DataTable.HasChanges Then
        Dim id As String = dt.current("_Identify")
        dt.DataTable.load
        Dim i As Integer = dt.FindRow("_Identify = '" & id & "'")
        If i >= 0 Then
            dt.Position = i
        End If
    End If
Next

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


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/16 9:13:00 [只看该作者]

如果数据是放在服务器的,这样子每修改一个数据,就自动刷新一次,会不会造成卡顿的现象的呢?

 回到顶部
总数 20 1 2 下一页