如何才能使dbgrid的前若干列固定不动.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 31 行

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 
<END>