|
先說明datagrid的一些屬性，說清楚了，自然解決方法就明了了。 說明： Bookmark：設(shè)置或返回當前的行標簽號 DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark) 返回當前行中字段為‘ProductID’的值。 在 DataGrid 被連接到一個數(shù)據(jù)庫后，可能想要監(jiān)視用戶單擊了哪一個單元。可以使用 RowColChange 事件——而不是 Click 事件。 如； Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print 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 As Integer) DataGrid1.Columns.Remove ColIndex End Sub
參考文獻：https://zhidao.baidu.com/question/85244508.html?qbl=relate_question_0&word=VBDataGrid
|
|
|
