以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同步表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117281)
--  作者：q2520
--  发布时间：2018/4/10 9:54:00
--  同步表
同步表有什么好的办法吗？   用计划管理  调的时间短了  总是刷新 提示加载**表    
能不能有任何改动以后就自动执行同步表     要怎么实现这个功能
--  作者：有点甜
--  发布时间：2018/4/10 10:01:00
--  

使用openQQ可以

 

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

 

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

 
--  作者：有点甜
--  发布时间：2018/4/10 10:02:00
--  
如果使用【同步表】方式，只能用定时器，没有其他方法。
--  作者：q2520
--  发布时间：2018/4/10 10:52:00
--  
定时器   总是提示  加载**表    这个提示能隐藏吗
--  作者：有点甜
--  发布时间：2018/4/10 10:55:00
--  

同步所有表代码，这样写

 

For Each dt As DataTable In DataTables
    dt.load
Next
--  作者：q2520
--  发布时间：2018/4/16 8:12:00
--  
这样会出一个问题     每次同步   焦点单元格都会跳到第一行    严重影响使用
--  作者：有点甜
--  发布时间：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
--  发布时间：2018/4/16 8:57:00
--  
效果也不是太好   输入中  也会有影响    我放在项目事件里用还 好点   只是更新频率不够高   
能不能检测到任何表有改动以后    就自动执行一次同步
--  作者：有点甜
--  发布时间：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
--  发布时间：2018/4/16 9:13:00
--  
如果数据是放在服务器的，这样子每修改一个数据，就自动刷新一次，会不会造成卡顿的现象的呢？