Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark) End Sub
你的控件名称前用了下划线？
