主题：同步数据问题

网络环境下，想实现如果10分钟无操作就自动同步项目中的所有表。并报告所有有新增行的表的名称

 看示例二

 

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