ordinalposition 屬性示例 (mdb)

以下示例更改了“產(chǎn)品”表中第一個(gè)字段的 ordinalposition 屬性設(shè)置。如果在執(zhí)行這個(gè)示例之前和之后檢查“數(shù)據(jù)表視圖”中的這個(gè)表，那么將會(huì)看到該過(guò)程將“產(chǎn)品id”字段從第一列移到最后一列。

sub setposition()
dim dbs as database, tdf as tabledef
dim fldfirst as field, fld as field

' 返回對(duì)當(dāng)前數(shù)據(jù)庫(kù)的引用。
set dbs = currentdb
' 返回對(duì) products 表的引用。
set tdf = dbs.tabledefs!products
' 返回對(duì)表中第一個(gè)字段的引用。
set fldfirst = tdf.fields(0)
' 將 ordinalposition 屬性設(shè)置到集合的最后位置。
fldfirst.ordinalposition = tdf.fields.count
' 刷新 fields 集合。
tdf.fields.refresh
' 列舉所有字段并打印順序位置。
for each fld in tdf.fields
debug.print fld.name, fld.ordinalposition
next fld
set dbs = nothing
end sub