问一个数据库的菜鸟问题

Question

怎样实现以下功能：
    双击MSHFlexGrid控件的某一单元格自动打开Form1数据录入窗口进入修改状态，被双击的MSHFlexGrid单元格对应的记录各字段内容分别显示在Form1数据录入窗口的Text1、Text2中,焦点落在对应于被双击的MSHFlexGrid单元格所在记录的及字段的文本框。“更新”按钮cmdUpdate的Enabled由False变为True。按“更新”按钮确认修改。

Answer 1

按Form1的cmdadd按钮只能增加新记录...

Answer 2

Private Sub MSFlexGrid1_DblClick()
        Me.MSFlexGrid1.Row = Me.MSFlexGrid1.Index
        Me.MSFlexGrid1.Col = 0
        form1.Text1.Text = Me.MSFlexGrid1.Text
        me.MSFlexGrid1.Col = 1
        form1.Text2.Text = Me.MSFlexGrid1.Text
        form1.cmdupdata.enable=true        
End Sub

Answer 3

TO leskey(阿康)：您的代码段不能通过。您只是将单元格中的文本复制到文本框，并没有告诉Form1确定应该更新哪一条记录.这样的话只会更新第一条记录。此外，还有代码段拼写错误。

Answer 4

'在form2中
private Sub MsFlexGrid1_DblClick()
 with MsFlexGrid1
  form1.text2=.TextMarry(.row,.col)
 end with
end sub'在form1中
Private Sub Button1_Click()
 form2.MsFlexGrid1.textmarry(MsFlexGrid1.row,MsFlexGrid1.col)=text1
End Sub

Answer 5

解决方法二：
  '在form2中
private Sub MsFlexGrid1_DblClick()
with MsFlexGrid1
  form1.text2=.TextMarry(.row,.col)
end with
end sub'在form1中
Private Sub Button1_Click()
form2.MsFlexGrid1.text=text1
End Sub  
'以上两种解决方法的前提必须要在HFLEX没有改变选择的位置。
如果要改变则需要对Text1.tag传入参数表示位置，参数就是当前选择单元格的行列。 

Answer 6

to fraser01(wang):
能否调试通过后在贴出来