datagrid中如何返回指定的列的列号及列标题???在线等待

[0813xu]

使用datagrid的什么方法可以返回指定列的列号及列标题？？？？

[lihonggen0]

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

MsgBox DataGrid1.Col
MsgBox "列标题" & DataGrid1.Columns(DataGrid1.Col).Caption

End Sub

[0813xu]

我将代码加在按钮的单击事件中，
出现“下标越界”错误，
请教？

[strongfisher]

Private Sub DataGrid1_click

MsgBox DataGrid1.Col
MsgBox "列标题" & DataGrid1.Columns(DataGrid1.Col).Caption

End Sub

[0813xu]

如果用鼠标选中整个列
则报下标越界错
如选择单个列
则通过
有没有什么方法解决这个错误