vb 选中datagrid中的某条记录进行修改

在 DataGrid 被连接到一个数据库后，RowColChange 事件监视用户单击哪一个单元

代码如下：
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print _DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub

运行时提示：

Debug.Print _DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)语法错误！！如何修改？？？

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub

先说明datagrid的一些属性，说清楚了，自然解决方法就明了了。 说明： bookmark：设置或返回当前的行标签号 datagrid1.columns("productid").celltext(datagrid1.bookmark) 返回当前行中字段为‘productid’的值。 在 datagrid 被连接到一个数据库后，可能想要监视用户单击了哪一个单元。可以使用 rowcolchange 事件——而不是 click 事件。 如； 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) datagrid1.columns.remove colindex end sub