VB技巧问答10000例,是一个教程
源代码在线查看: 如何才能使dbgrid的前若干列固定不动.txt
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