¹ØÓÚVBÖÐDATAGRID¶¯Ì¬Òþ²ØÁеÄÎÊÌâ

ÎÒÓÃDATAGRIDÏÖʵÎҵIJéѯ½á¹û£¬Äܲ»ÄÜͨ¹ýË«»÷ijÁлòÕßÓÒ¼ü²Ëµ¥ÀïÃæµãÒþ²Ø£¬È»ºó¸ÃÁоÍÒþ²ØÁË?ÇëÎʾßÌåÈçºÎʵÏÖ

---

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    DataGrid1.Columns(ColIndex).Width = 0
End Sub

---

¿ÉÒÔË«»÷ijÁбêÍ·Òþ²Ø

---

µ¥»÷,д´íÁË

---

Private Sub DataGrid1_DblClick()
    With DataGrid1
        If .Col < 0 Then Exit Sub
        If .Row < 0 Then Exit Sub
        .Columns(.Col).Visible = False
    End With
End Sub

---

ÒýÓÃ

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    DataGrid1.Columns(ColIndex).Visible = False
End Sub

Ö§³Ö