请问同步所有表以及重新打开项目代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问同步所有表以及重新打开项目代码？

共有1792人关注过本帖树形打印复制链接主题：请问同步所有表以及重新打开项目代码？

zsslly

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

请问同步所有表以及重新打开项目代码？ 发帖心情

Post By：2017/6/10 19:55:00 [只看该作者]

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

如果只是同步的话，数据是同步了，但表的筛选及其它的设置同步后无效，影响使用！而我以前在重启文件时筛选及其它设置是可以用的，如果想二个功能都有，代码可不可这样写？如下：

Syscmd.Project.Load() '同步所有表

Syscmd.Project.Open(ProjectFile) '重启项目

有没有更简单有效的方法，求指点？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/11 15:56:00 [只看该作者]

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

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

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