懂数据库的都进来

Question

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If (Not Adodc1.Recordset.EOF) And (Not Adodc1.Recordset.BOF) Then
   Text1.Text = StrStore(Adodc1.Recordset.Fields(0), 0)
   Text2.Text = StrStore(Adodc1.Recordset.Fields(1), 0)
   Text3.Text = StrStore(Adodc1.Recordset.Fields(2), 0)
 End If
End Sub

Answer 1

不行，StrStore未定义，而且我要在datagrid_click里用

Answer 2

StrStore是自定义函数，忘记去掉了。datagrid_click如果使记录移动的话，会调用Adodc1_MoveComplete的。

Answer 3

你可以在Adodc1_MoveComplete中用变量存储记录值，再在datagrid_click中传给TEXTBOX