Foxtable(狐表)用户栏目专家坐堂 → 8月18日更新上传


  共有12807人关注过本帖树形打印复制链接

主题:8月18日更新上传

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
8月18日更新上传  发帖心情 Post By:2010/8/18 17:59:00 [显示全部帖子]

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()


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/8/19 9:12:00 [显示全部帖子]

以下是引用cxabc123在2010-8-19 9:05:00的发言:

老大可以增加表达式列吗,如何增加

 

看看帮助中关于DataCols的部分。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/8/20 14:40:00 [显示全部帖子]

收到

 回到顶部