dim s as string datagrid1.col=2 datagrid1.row=2 得到第2行2列的值: s=datagrid1.text 由于你要得到选中的行,所以row不用赋值
因为默认的row的值就是选中的行的值
Private Sub Command1_Click() MsgBox DataGrid1.Text End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
End Sub
比如说你有6列 Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Msgbox(DBGrid1.Columns(0).Value) Msgbox(DBGrid1.Columns(1).Value) Msgbox(DBGrid1.Columns(2).Value) Msgbox(DBGrid1.Columns(3).Value) Msgbox(DBGrid1.Columns(4).Value) Msgbox(DBGrid1.Columns(5).Value) End Sub
datagrid1.col=2
datagrid1.row=2
得到第2行2列的值:
s=datagrid1.text
由于你要得到选中的行,所以row不用赋值
MsgBox DataGrid1.Text
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Msgbox(DBGrid1.Columns(0).Value)
Msgbox(DBGrid1.Columns(1).Value)
Msgbox(DBGrid1.Columns(2).Value)
Msgbox(DBGrid1.Columns(3).Value)
Msgbox(DBGrid1.Columns(4).Value)
Msgbox(DBGrid1.Columns(5).Value)
End Sub