OrdinalPosition屬性示例

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