*******关于数据录入的讨论******在线等候，答者有分*********

Question

Private Sub msflexgrid1_DblClick()
'支持鼠标双击功能
Call CmdOK_Click
End Sub
private sub cmdok_cliki
form1.Show 
end sub

Answer 1

Private Sub msflexgrid1_DblClick()
'支持鼠标双击功能
Call CmdOK_Click
End Sub
private sub cmdok_clik()
form1.Show 
end sub
呵呵有点笔误

Answer 2

传递几个PK---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

Answer 3

mshflexgrid_cilck 事件
dim n_row as integer
n_row=mshflexgrid.row
form1.text1=mshflexgrid.textMatrix(n_row, 0)
form1.text2=mshflexgrid.textMatrix(n_row, 1)
...
form1.show

Answer 4

更正： msflexgrid1_DblClick 事件

Answer 5

mshflexgrid
通常我们是加一列或多列 隐藏 key
这样定位就没有问题================================================================ok?

Answer 6

在FORM1上把ID查出来后传给FORM2。

Answer 7

用mshflexgrid控件加一列或多列 隐藏 key(内码)
'你可以在模块内打开数据库：CnSQL；
dim CnSQL As New ADODB.Connection
dim CnStr$,My_DB$,My_ServerName$
'打开数据库
CnStr = "Provider=SQLOLEDB.1;" & _
   "Persist Security Info=False;" & _
   "User ID=sa" & ";" & _
   "Initial Catalog=" & My_DB & ";" & _
   "Data Source=" & My_ServerName 
CnSQL.Open CnStr'在界面2上把key查出来后传给界面1，在界面1内
dim My_Rs As New ADODB.Recordset
dim My_Sql$
My_Sql$="Select * from 主表名 a Left join 细表名 b on a.key=b.key and a.key='" & key & "'"
My_Rs.open My_Sql$,CnSQL, adOpenKeyset, adLockPessimistic
'现在加载数据到控件上就可以啦，当然自己定位数据显示啦

Answer 8

因为在mshflexgrid中显示的记录中已经包括了key，所以已不用查询了。谢谢cyy123。到时一定给分。请各位多多发表高见。

Answer 9

我做过类似的问题的模块。这里我谈谈我是怎么做的。希望对你有帮助。
我当时屏蔽了鼠标的。但这没有关系的。有鼠标更好用了。
首先，在主界面上判断鼠标的双击事件，可以取得你点击的是那条记录。主要是内码。取出内码。然后调用界面2里的load事件，根据内码显示相应的数据信息。如果要在mshflexgrid中绑定表的话，不好输入数据。建议你用一个textbox控件与mshflexgrid相结合输入你想输入的数据。如果需要的话，我可以给你写一些源码。我想你这个应该没有问题的。你说的定位问题可以这样来解决：
在主界面的双击事件中，定位的办法是：取mshflexgrid.row,这个值就是当然你双击的行，这样你在这行中的任意数据，进行都可以取出来用的。然后根据取出的值动态构建SQL语句，把相应的数据信息再显示到界面2上就可以了。
如果要用mshflexgrid来输入的话，比较麻烦一些，但可以做出来的。就是代码行会成倍增长的。我为了能在mshflexgrid控件中显示十三个属性值与输入，花了近五百行代码。当然其中还包括有效性判断以及方向键、回车键的判断问题。如果仅仅是显示，那就简单多了。需要源码的话，说一声。

Answer 10

楼上的兄弟先行谢过，你所讲的我想没有问题，就是亲自没有实践过。
你所说的mshflexgrid1和text1我倒有一点经验。我曾经写过一个万能查询不过还是不能完善，用过了三个combo控件一个text.应该没有问题。你所说的态创建sql.
是不是取出主细表中相应的数据。再填入至界面2这我想应该没有问题。
但是好像要把修改好的数据再写入对应key值的表没有实践过。
能否给小弟一个完整的源码。万能感激！期盼佳音！
我的email:[email protected],[email protected]

Answer 11

我也做过,实现很简单,不过代码不在手头.
跟 SZSGL(枯木逢春) 兄说的方法大同小异.