主题：能否做一个启动速度快的例子

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=27415&replyID=&skin=1

参考上面的帖子 ，我也新手，上星期我把 所有的表都删了，只留了一个表，然后所有的窗口 都绑在这一个表上。其他的全部表动态添加，再配合动态数据，现在第一次启动速度基本10秒内了，以前要40秒左右。

拿我刚才发帖子提问的一个列子给你参考下吧，希望能帮到你，

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=38689

下面是我增加表的函数，你自己酌情修改下：

If DataTables.Contains(args(0)) = False Then
    Dim q As new OuterTableBuilder
    q.TableName = args(0)
    q.C
    q.SelectString = "Select * From {" & args(1) & "} where _identify is null"
    If Forms("进度条").opened Then
        Forms("进度条").Controls("button1").text = "正在加载表【" & args(1) & "】"
    End If
    q.Build
    Dim dr As DataRow = DataTables("表结构").find("表 = '" & args(0) & "'")
    If dr IsNot Nothing Then
        Tables(args(0)).SetColVisibleWidth(dr("结构"))
    End If
    DataTables(args(0)) .GlobalHandler.PrepareEdit = True
    DataTables(args(0)).GlobalHandler.MouseLeaveCell= True
    DataTables(args(0)).GlobalHandler.MouseEnterCell= True
    DataTables(args(0)).GlobalHandler.DrawCell= True
    DataTables(args(0)).GlobalHandler.DoubleClick= True
    DataTables(args(0)).GlobalHandler.DataRowAdded= True
    DataTables(args(0)).GlobalHandler.DataColChanged= True
    DataTables(args(0)).GlobalHandler.BeforeDrawRow= True
    DataTables(args(0)).GlobalHandler.AfterLoad= True
End If