1、修正了两个bug
2、完善了ADOXBuilder,增加了内容:
为外部表增加系统列
使用前述代码添加的表,默认会添加主键列“_Identify”。
如果是内部数据源,默认还会添加“_Locked”和"_SortKey"两列,前者用户保存行的锁定状态,后者用于开启插入行功能。
如果是外部数据表,默认不会添加“_Locked”和"_SortKey"两列,你可以使用AddTable方法的另一个语法,来决定是否为外部表增加这两列:
AddTable(Table, AddLockColumn, AddSortColumn)
Table: 要增加的表
AddLockColumn: 逻辑型,是否增加_Locked列
AddSortColumn: 逻辑型,是否增加_SortKey列
例如在名为nwnd的外部数据源中创建一个订单表,且为订单表添加“_Locked”和"_SortKey"两列:
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, True, True) '增加表
Builder.Close()