主题：如何实现鼠标5分钟不动同步各表

 参考

 

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

 

 For Each dt As DataTable In DataTables
    dt.Load
Next

If LastInputTickCount > 30000 Then
    For Each dt As DataTable In DataTables
        dt.Load
    Next
End If

 这个变量 LastInputTickCount 的意思是，你离开电脑的时间，和你之前的不同。

 

原来的代码不变，如果你要 不操作电脑一段时间自动加载，就加上今天的代码

 不同概念的啊，以前代码都不能变啊。

 

这种无操作，是不操作(鼠标不动、键盘不动)的情况啊。

 

如果你是要这种，之前的代码全部可以删除了。

If LastInputTickCount > 30000 Then
    Dim idx As Integer = 0
    If CurrentTable IsNot Nothing AndAlso CurrentTable.Current IsNot Nothing Then
        idx = CurrentTable.Current("_Identify")
    End If
    For Each dt As DataTable In DataTables
        dt.Load
    Next
    If idx > 0 Then
        CurrentTable.Position = CurrentTable.FindRow("_Identify = " & idx)
    End If
End If