如何在DATAGRID中点什么得什么啊？看你们的拉

Question

Private Sub DataGrid1_DblClick()
Dim dbc As New ADODB.Connection
Dim dbr1 As New ADODB.Recordset
dbc.Open "..."
dbr1.Open "select 款号,颜色,尺码,数量,价格 from temp, dbc
dbr1.Move DataGrid1.Row
Text1(0) = dbr1!款号: Text1(1) = dbr1!颜色: Text1(2) = dbr1!尺码: Text1(3) = dbr1!数量: Text1(4) = dbr1!价格
dbr1.Close
End Sub这样虽然可以在TEXT1中显示数据，但点击的很生硬。如果是Click的话就会显示在没有Click前的TEXT。问题就是怎么用Click来显示呢？？

Answer 1

不懂vb
delphi中是这么用的dbgrid.oncellclick   event
 edit1.Text:=adoquery2.fieldbyname(dbgrid2.Columns[0].FieldName).AsString;

Answer 2

救命！！发现DATAGRID的ROW返回的不是整张表选择的行数，如果下拉滚动条，ROW属性只是显示表中所指行数!应该如何解决？？？

Answer 3

Private Sub DataGrid1_Click()
    Text1.Text = DataGrid1.Columns(i)
End Sub
'
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    DataGrid1_Click
End Sub