主题：请问同步所有表以及重新打开项目代码？

 同步之前，记录筛选条件，同步之后设置筛选条件。

Dim filters As new Dictionary(Of String, String)
For Each t As Table In Tables
    filters.Add(t.name, t.Filter)
Next

'同步代码
'DataTables("表A").Load
'msgbox(1)

For Each key As String In filters.keys
    Tables(key).filter = filters(key)
Next