VB技巧问答10000例 VB技巧问答10000例

				DBGrid也 有 锁 定 列 的 功 能 ， 只 是 用 法 比 较 奇 怪 。 DBGrid可 以 使 用 Split对 象 将 一 个 表 分 割 成 两 个 完 全 相 同 的 部 分 。 我 们 可 以 将 左 边 的 一 个 只 显 示 几 个 固 定 列 ， 而 右 边 的 那 个 显 示 其 余 列 。 下 面 是 一 个 小 例 子 。 
				    Private Sub Form_Load() 
				    ' Hide all columns in Splits(1) except for columns 0 and 1 
				    Data1.Refresh 
				     
				    DBGrid1.Splits.Add 0 
				    Dim Cols As Columns 
				     
				    Set Cols = DBGrid1.Splits(0).Columns 
				     
				    For Each C In Cols 
				     C.Visible = False 
				    Next C 
				     
				    Cols(0).Visible = True 
				    Cols(1).Visible = True 
				     
				    ' Configure Splits(1) to display exactly two columns, and 
				    ' disable resizing 
				     
				    With DBGrid1.Splits(0) 
				     .SizeMode = dbgNumberOfColumns 
				     .Size = 2 
				     .AllowSizing = False 
				    End With 
				    ' Set columns 0 and 1 invisible in other splits (Splits 0 and 2) 
				    Set Cols = DBGrid1.Splits(1).Columns 
				    Cols(0).Visible = False 
				    Cols(1).Visible = False 
				    End Sub