如; Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print _DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark) End Sub
通过这个方法就能获得用户点击的行的某个值。
利用一下方法可以控制datagrid每列的宽度;
Dim c As Column Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count) With c .Visible = True .Width = 1000 .Caption = "我的新列" .DataField = Adodc1.Recordset.Fields("ProductName").Name .Alignment = dbgRight End With
下面的代码将删除被单击的列。 Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)