表的DataColChanged事件代码：
Select Case e.DataCol.Name
Case "客户"
If DataTables.Contains(e.NewValue) = False Then
'代码生成表和列
Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable(e.NewValue) '创建表
With tbl
.AddColumn("编号" ,ADOXType.Integer)
.AddColumn("名称" ,ADOXType.String, 16)
.AddColumn("数量" ,ADOXType.Single)
.AddColumn("备注" ,ADOXType.String, 200)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
Syscmd.Project.Open(ProjectFile) '动态创建的表和列之后,都必须重新打开项目才能真实生效.
End If
End Select
加好友 
发短信
Post By：2017/2/26 19:29:00 [只看该作者]
