以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问同步所有表以及重新打开项目代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101967)
--  作者：zsslly
--  发布时间：2017/6/10 19:55:00
--  请问同步所有表以及重新打开项目代码？
请问同步所有表以及重新打开项目代码？

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

Syscmd.Project.Load()                \'同步所有表
Syscmd.Project.Open(ProjectFile)     \'重启项目

有没有更简单有效的方法，求指点？
--  作者：有点色
--  发布时间：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