主题：同步数据问题

 看示例二

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