使用列
通過更改DataSource屬性,可以動態地更改在DataGrid控件中顯示的數據。例如,可以顯示同一個數據庫的不同表。如果這樣做,則DataGrid控件將只根據默認的屬性顯示數據。
添加、刪除或隱藏列
通過使用Columns集合和Column對象的屬性和方法,可以在程序中添加、刪除或隱藏列。
添加和刪除一列
要在運行時添加一列,可以使用Add方法。如果首先聲明一個變量,並將新對象賦給該變量,就可以用簡明的代碼設置各種屬性。
PrivateSubAddColumn()
'在最右邊的位置添加一列。然後設置其Visible、Width、
'Caption以及Alignment屬性。DataField屬性則指定
'該列將綁定到哪一個字段。
DimcAsColumn
Setc=DataGrid1.Columns.Add(DataGrid1.Columns.Count)
Withc
.Visible=True
.Width=1000
.Caption="我的新列"
.DataField=Adodc1.Recordset.Fields("ProductName").Name
.Alignment=dbgRight
EndWith
EndSub
可以使用方法來刪除任意一列。請確保使用ColIndex參數來指定要刪除的列。下面的代碼將刪除被單擊的列。
PrivateSubDataGrid1_HeadClick(ByValColIndexAsInteger)
DataGrid1.Columns.RemoveColIndex
EndSub
隱藏一列
通過將Visible屬性設置為False,可以隱藏任意一列。當想要限制用戶可以查看或編輯的列時這一功能特別有用。下面的示例在Columns集合中循環,隱藏除少數列之外的所有列。
PrivateSubHideColumns()
'使用DataField屬性來判別正在測試的是哪一列。
'只顯示三列:ProductName、UnitPrice以及
'UnitsInStock。
DimcAsColumn
ForEachcInDataGrid1.Columns
SelectCasec.DataField
Case"ProductName"
c.Visible=True
Case"UnitPrice"
c.Visible=True
Case"UnitsInStock"
c.Visible=True
c.Caption="InStock" '更改這個列的標頭。
CaseElse '隱藏其它所有的列。
c.Visible=False
EndSelect
Nextc
EndSub
操作DataGrid視圖
一個“拆分”的網格使最終用戶對相同的數據可以擁有多個視圖。例如,假設有一個由十個字段組成的大表。在這種情況下,在控件中察看的記錄集將有十列寬,除非窗體非常寬,否則用戶將無法同時看見所有列的內容。,而且,假設用戶只對第一列和最後一列感興趣(例如,第一列是名字,最後一列是電話號碼)。為了能同時看到在兩端的列(不重新安排列的順序),可以對網格進行拆分。
創建一個Split對象
在設計時,可以創建一個拆分,具體步驟是:右鍵單擊網格,單擊“編輯”,再單擊右鍵,然後單擊“拆分”。通過右鍵單擊該控件,並單擊“屬性”來顯示“屬性頁”對話框,可以編輯這個拆分。可以使用“拆分”選項卡來自定義拆分。要刪除一個拆分,右鍵單擊該拆分,並單擊“刪除”。
在運行時,最終用戶也可以通過單擊位於這個網格控件的左下邊的右邊的選項卡,以手工方式來拆分該網格(除非不允許這個操作),如下圖所示:
默認情況下,DataGrid控件包含一個Split對象。防止最終用戶添加拆分的代碼為:
DataGrid1.Splits(0).AllowSizing=False
在程序中添加和刪除拆分
DataGrid控件包含一個Split對象的集合。要在程序中添加拆分,可以使用Add方法,如下所示:
DataGrid1.Splits.Add1
注意Add方法需要新的拆分索引作為其參數。要添加一個拆分,應將這個索引參數設置為Splits集合的Count屬性值。
使用Split集合的Add方法,可以在程序中按照實際需要添加拆分。由於添加多於兩個以上的拆分將使網格很難使用,可以使用該集合的Count屬性來限制拆分的數目。
IfDataGrid1.Splits.Count<3Then'添加一個拆分。
DataGrid1.Splits.AddDataGrid1.Splits.Count
EndIf
使拆分同步
當拆分多於一個時,可能希望控制這些拆分如何滾動。例如,在一個具有三個拆分的網格中,可以決定只讓第一個和第三個拆分同步,而讓中間的拆分獨立地滾動。要同步任何兩個(或多個)拆分,只需將每個Split對象的ScrollGroup屬性設置為同一個值。
'使第一個和第三個Split對象同步。
WithDataGrid1
.Splits(0)
.ScrollGroup=1
.Splits(1).ScrollGroup=2
.Splits(2).ScrollGroup=1
EndWith
通過設置Scrollbars屬性,使同步的拆分組只顯示一個滾卷條,從而進一步自定義拆分的外觀。
控制Tab鍵和箭頭鍵的行為
使用WrapCellPointer、TabAcrossSplits以及TabAction屬性,可以決定當最終用戶按下tab鍵或箭頭鍵時網格的行為。
在這三個屬性中,TabAction屬性級別最高,它決定WrapCellPointer和TabAcrossSplits這兩個屬性是否能生效。TabAction有三個設置值:ControlNavigation、ColumnNavigation和GridNavigation。當該屬性設置為ControlNavigation時,按Tab鍵根據TabIndex將焦點切換到下一個控件。這一設置優先於WrapCellPointer和TabAcrossSplits。
WrapCellPointer屬性決定在任何單個的拆分中tab鍵和箭頭鍵的行為。如果該屬性設置為True,且當前單元位於最後一列,這時最終用戶按tab鍵則使第一列的下一行變成當前的單元。不過,如果當前單元位於最後一行的最後一列時,這時就沒有地方可以“換行”。
TabAcrossSplits屬性決定當網格中存在兩個或多個拆分時tab和箭頭鍵的行為。如果該屬性設置為True,且當前單元位於任何一個拆分的最後一列,則按Tab或箭頭鍵將使當前單元“跳”到下一個拆分的第一列。當前單元仍保持相同的行位置。
注意如果WrapCellPointer和TabAcrossSplits屬性都設置為True,則只有當前單元位於最後一個拆分的最後一列時才會換行。這時當前單元將換到第一個拆分的第一列中的下一行。
自定義列集合
每一個Split對象都有一個Columns屬性,允許用戶來操作一個Column對象的集合。通過這樣做,可以更改每個Split對象的外觀。例如,可以用一個拆分包含顯示姓氏字段和名字字段的兩個列,而第二個拆分則顯示電話字段和地址字段。要實現這一目標,需要將其它的每一列的Visible屬性設置為False,如下所示:
'枚舉Columns集合,對每一個Column對象的DataField屬性
'進行測試。如果測試失敗,則隱藏這一列。
DimiAsInteger
'隱藏除ProductName列之外的所有列。
Fori=0ToDataGrid1.Splits(0).Columns.Count-1
IfDataGrid1.Splits(0).Columns(i).DataField<>"ProductName"Then
DataGrid1.Splits(0).Columns(i).Visible=False
EndIf
Nexti
'隱藏除UnitPrice列之外的所有列。
Fori=0ToDataGrid1.Splits(0).Columns.Count-1
IfDataGrid1.Splits(1).Columns(i).DataField<>"UnitPrice"Then
DataGrid1.Splits(1).Columns(i).Visible=False
EndIf
NextI