Dim Builder As New ADOXBuilder("nwnd") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") \'创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()

软件能不能改进一下，执行了上面的这段代码后，第二次打开项目就把订单表给加载到项目里，

或者执行datatables.load("订单") ，就马上把订单表加载到项目里。

特别是项目交付后，可以让用户自己在软件里增加表了。

 增加表，不能写代码设置事件也没什么用。

 你可以在afterOpenProject那里直接引入表 http://www.foxtable.com/webhelp/scr/1279.htm