Access (的 TextBox.ColumnOrder 屬性)

使用 ColumnOrder 屬性可指定資料工作表檢視中資料行的順序。 可讀寫的 Integer。

語法

運算式。ColumnOrder

表達 代表 TextBox 物件的變數。

註解

[!注意事項] 若要設定或變更此屬性對於資料表或查詢使用 Visual Basic，您必須使用資料行的 Properties 集合。 如需使用 Properties 集合的詳細資訊，請參閱 屬性。

[!注意事項] 無法使用 ColumnOrder 屬性在設計檢視中。

當表單處於資料工作表檢視 ColumnOrder 屬性可套用於 [資料工作表檢視中的全部欄位和表單控制項。

在資料工作表檢視] 中的欄位 ColumnOrder 屬性設定值取決於該欄位的位置。 例如，最左邊的欄資料工作表檢視中的欄位具有 ColumnOrder 屬性設定為 1 下, 一個功能變數，其設定為 2，依此類推。 變更欄位的 ColumnOrder 屬性會針對該欄位和每個欄位的屬性重設左邊的 [資料工作表檢視其原始位置。

在其他檢視中的屬性設定為 0 除非您明確地變更 (不論是藉由將欄位拖曳至新位置或變更其 ColumnOrder 屬性設定值) 的資料工作表檢視] 中的一或多個欄位的順序。 移動的欄位的新位置的右側的欄位以外的資料工作表檢視的檢視中有屬性設定為 0。

在 [資料工作表檢視] 中的欄位順序，不會影響在資料表設計檢視或表單檢視中的欄位順序。

範例

下列範例會在Products表單的 [資料工作表檢視] 的前兩個數據行中顯示ProductName和QuantityPerUnit欄位。

Forms!Products!ProductName.ColumnOrder = 1 
Forms!Products!QuantityPerUnit.ColumnOrder = 2

下列範例會顯示 [資料工作表檢視] 中 Products資料表前兩個數據行中的ProductName和QuantityPerUnit欄位。 若要設定 ColumnOrder 屬性，此範例會使用 SetFieldProperty 程式。 如果表格是開啟時執行此程序，直到它會在關閉並重新開啟後將不會顯示變更。

Public Sub SetColumnOrder() 
 
 Dim dbs As DAO.Database 
 Dim tdf As DAO.TableDef 
 
 Set dbs = CurrentDb 
 Set tdf = dbs!Products 
 
 ' Call the procedure to set the ColumnOrder property. 
 SetFieldProperty tdf!ProductName, "ColumnOrder", dbLong, 2 
 SetFieldProperty tdf!QuantityPerUnit, "ColumnOrder", dbLong, 3 
 
 Set tdf = Nothing 
 Set dbs = Nothing 
 
End Sub 
 
Private Sub SetFieldProperty(ByRef fld As DAO.Field, _ 
 ByVal strPropertyName As String, _ 
 ByVal intPropertyType As Integer, _ 
 ByVal varPropertyValue As Variant) 
 ' Set field property without producing nonrecoverable run-time error. 
 
 Const conErrPropertyNotFound = 3270 
 Dim prp As Property 
 
 ' Turn off error handling. 
 On Error Resume Next 
 
 fld.Properties(strPropertyName) = varPropertyValue 
 
 ' Check for errors in setting the property. 
 If Err <> 0 Then 
 If Err <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName & _ 
 "' on field '" & fld.Name & "'", vbCritical 
 Else 
 On Error GoTo 0 
 Set prp = fld.CreateProperty(strPropertyName, intPropertyType, _ 
 varPropertyValue) 
 fld.Properties.Append prp 
 End If 
 End If 
 
 Set prp = Nothing 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。