以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同步数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71597)
--  作者：utcxray
--  发布时间：2015/7/14 16:51:00
--  同步数据问题
网络环境下，想实现如果10分钟无操作就自动同步项目中的所有表。并报告所有有新增行的表的名称
求代码
--  作者：大红袍
--  发布时间：2015/7/14 16:59:00
--  

 看示例二

 

http://www.foxtable.com/help/topics/0665.htm

 

 参考代码

 

If LastInputTickCount Mod 30000 = 0  Then
    Dim str As String = ""
    For Each dt As DataTable In DataTables
        Dim count As Integer = dt.DataRows.Count
        dt.Load
        If dt.DataRows.Count > count Then
            str &= dt.Name & vbcrlf
        End If
    Next
    msgbox(str)
End If