1、首先
Dim b As New DataTableBuilder("NewTable") ',临时表
With b
.AddDef ("列名" ,Gettype(String),20)
.AddDef("类型" ,Gettype(String), 12)
.AddDef("长度" ,Gettype(Integer ))
.AddDef("标题" ,Gettype(String),50)
End With
‘’b.Build() 这句代码要去掉，否则会导致临时表异常，因为后面重复BuildDataSource 生成了
Tables("增加表_Table1").DataSource =b.BuildDataSource 'DataTables("NewTable")
2、这个增加表窗口不能是模式窗口，模式窗口里不能使用Syscmd.Project.Open(ProjectFile)
如果是其它类型窗口加一句代码
If e.Form.Controls("CheckBox1").checked=True Then
e.cancel=true
Syscmd.Project.Open(ProjectFile)
End If
加好友 
发短信
Post By：2020/1/21 17:14:00 [显示全部帖子]
