你可以用dbclick事件,不必判断双击了哪一行,只要判断not .bof and not .eof 就行。
Private Sub DBGrid1_DblClick() Dim Chess As Database Load Form1 Form1.Text3 = Chess!金额.Value Form1.Show (1)
End Sub‘光标停在VALUE,提示错误:未找到方法或数据成员
Private Sub DBGrid1_DblClick() Dim Chess As Database 'Load Form1 去掉这一行 Form1.Text3 = Chess!金额.Value'##################################### 'Chess定义到模块里 '##################################### Form1.Show (1)
End Sub
根据datagride.row来判断是哪行记录,再把它截取出来就行了. 不过有个问题 Dim i As Integer i = DataGrid1.Row Debug.Print i, DataGrid1.Text 打印出来的都是前次选择的数据,如果可以解决这个问题就可以了. 可以通过i到数据库中找记录的
只要在form2_load()事件中写:text1=rs!字段名.value就行了。
Dim Chess As Database
Load Form1
Form1.Text3 = Chess!金额.Value
Form1.Show (1)
End Sub‘光标停在VALUE,提示错误:未找到方法或数据成员
Dim Chess As Database
'Load Form1 去掉这一行
Form1.Text3 = Chess!金额.Value'#####################################
'Chess定义到模块里
'#####################################
Form1.Show (1)
End Sub
不过有个问题
Dim i As Integer
i = DataGrid1.Row
Debug.Print i, DataGrid1.Text
打印出来的都是前次选择的数据,如果可以解决这个问题就可以了.
可以通过i到数据库中找记录的