先說明datagrid的一些屬性，說清楚了，自然解決方法就明了了。說明：Bookmark：設置或返回當前的行標簽號DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)返回當前行中字段為‘ProductID’的值。
在 DataGrid 被連接到一個數(shù)據(jù)庫后，可能想要監(jiān)視用戶單擊了哪一個單元。可以使用RowColChange 事件——而不是 Click 事件。
如；
Private Sub DataGrid1_RowColChange(LastRowAs Variant, ByVal LastCol As Integer)
Debug.Print DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub
可通過RowColChange事件，把從DataGrid控件中選擇某行記錄中的某個值顯示在其他控件上，比如Text控件txtProductID，txtProductID=DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
如果要看你代碼的運行的效果可以直接Debug.Print方法在“立即窗口”中看到你代碼的運行結(jié)果，對調(diào)試程序作用很明顯。
*********************************************************************************
在DataGrid增加一個行：
利用一下方法可以控制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
*********************************************************************************
在DataGrid中刪除一個行：
下面的代碼將刪除被單擊的列。
Private Sub DataGrid1_HeadClick(ByVal ColIndex AsInteger)
DataGrid1.Columns.Remove ColIndex
End Sub
參考文獻：https://zhidao.baidu.com/question/85244508.html?qbl=relate_question_0&word=VBDataGrid
本站僅提供存儲服務，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
