OrdinalPosition屬性示例

    OrdinalPosition 屬性示例 (MDB)
    以下示例更改了“產(chǎn)品”表中第一個(gè)字段的 OrdinalPosition 屬性設(shè)置。如果在執(zhí)行這個(gè)示例之前和之后檢查“數(shù)據(jù)表視圖”中的這個(gè)表，那么將會(huì)看到該過程將“產(chǎn)品ID”字段從第一列移到最后一列。
    Sub SetPosition()
    Dim dbs As Database, tdf As TableDef
    Dim fldFirst As Field, fld As Field
    @# 返回對(duì)當(dāng)前數(shù)據(jù)庫的引用。
    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