不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

MSHFlexGrid显示数据，我希望当双击某一行时，能够捕捉是那一行，然后调用另外一个窗体显示出来.该窗体为数据录入窗体，并显示相应数据。因为是我新人,所以凡是回答问题的大哥,我都给分.非常急，今天就要交。

楼主haoeast（haha）2001-12-18 12:51:33 在 VB / 基础类提问

我使用一个MSFlexGrid显示数据，我希望当双击某一行时，能够捕捉是那一行，然后调用另外一个窗体显示出来，该窗体为数据录入窗体，并显示相应数据。请问用什么方法好.
能给点详细回答或源代码吗?因为有一篇文章有着方面的叙述。
我想用DelClick,在这个事件里直接引用MSFlexGrid1.Row，但怎么用还真是搞不懂。
(请给点详细代码,我是菜鸟.hao1@163.net) 问题点数：34、回复次数：12Top

1 楼rushing（勇敢的心）回复于 2001-12-18 13:02:04 得分 9

数据应有一个关键字。
双击后，从msflexgrid.col(n).value应该能得到关键字。
赋值给全局变量
然后
load frmAnother
frmAnother.show
即可。

Top

2 楼cool222（坚持到底）回复于 2001-12-18 13:09:09 得分 4

我想那个另外的窗口可以在开始时就加载，给它个RecIndex属性来与MSFlexGrid对应。
打开或关闭编辑窗，实际上做成隐藏/显示它即可

关键是给窗口加个属性。在窗口的代码编辑中，菜单上的添加属性菜单项就可以用了。
OICQ:12092873Top

3 楼cool222（坚持到底）回复于 2001-12-18 13:09:18 得分 0

4 楼lazygod（Use any item）回复于 2001-12-18 13:09:29 得分 5

在DblClick中用msflexgrid.col+1和msflexgrid.row+1,便可得到当前行和列，用msflexfgrid.text可得到此cell的数据。Top

5 楼tommychim（阿布洛迪）回复于 2001-12-18 13:16:23 得分 5

private sub button1_dblclick()
load frmedit
with msflexgrid
frmedit.label1=.textmatrix(0,0) //获得第一列的标题
frmedit.label2=.textmatrix(.row,0) //获得当前行第一列的内容
end with
end subTop

6 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2001-12-18 13:34:56 得分 5

''''''''''''''好象记得以前有这样类似的问题***********
'在窗体中填加一个MSHFlexGrid,并在工程中再加一个窗体Form2.
Private Sub Form_Load()
With MSHFlexGrid1
.Rows = 5
.Cols = 3
.TextMatrix(1, 1) = "aaaaaaa，"
.TextMatrix(1, 2) = "bbbbbbbbbbb"
.TextMatrix(2, 1) = "cccccccc"
.TextMatrix(2, 2) = "dddddddddd"
.TextMatrix(3, 1) = "eeeeeeeeee"
End With
End Sub

Private Sub MSHFlexGrid1_DblClick()
'将网格内的文本显示在Form2中,Form2上要放两个文本框,名为Text1和Text2
Dim frm2 As Form2
Set frm2 = New Form2

With MSHFlexGrid1
frm2.Text1.Text = .TextMatrix(.Row, 1) '显示第一列内容
frm2.Text2.Text = .TextMatrix(.Row, 2) '显示第二列内容
End With

frm2.Show 1
Set frm2 = Nothing
End Sub
Top

7 楼Ranma_True（乱马1/2(真)）回复于 2001-12-18 13:51:12 得分 5

Private Sub Form_Load()
With MSHFlexGrid1
.Rows = 5
.Cols = 3
.TextMatrix(1, 1) = "1"
.TextMatrix(1, 2) = "2"
.TextMatrix(2, 1) = "3"
.TextMatrix(2, 2) = "4"
End With
End Sub

Private Sub MSHFlexGrid1_DblClick()
With MSHFlexGrid1
form2.Text1.Text = .TextMatrix(.Row, 1)
form2.Text2.Text = .TextMatrix(.Row, 2)
End With

form2.Show 1
Set form2 = Nothing
End Sub
Top

8 楼haoeast（haha）回复于 2001-12-18 21:55:56 得分 0

可能是问题问得不好,此方法虽然让form2取得数值,但并非form2焦点所对应数据,我是想在form2上修改此表的其中几个数据.请各位多费心.Top

9 楼haoeast（haha）回复于 2001-12-18 22:19:05 得分 0

对不起问题可能表达有误,我希望得到form2焦点相对应的mshfexgrid数据,用来修改form2数据,而不是用mshfexgrid数据填充form2.请大家费心.Top

10 楼Ranma_True（乱马1/2(真)）回复于 2001-12-19 09:42:37 得分 0

to haoeast(h):　没看明白Top

11 楼lonaerd（redhat10）回复于 2001-12-19 10:14:26 得分 1

我给你个例子吧，是用ACCESS+DAO，要不要？功能和你说的一样Top

12 楼haoeast（haha）回复于 2001-12-19 21:14:32 得分 0

有例子我都要,hao1@163.net。问题的意思是这样的，有一个MSHFLEXGRID从ACCESS数据库的表1里得到数据，同时FORM1也从表1里得到相同数据。我想双击MSHFLEXGRID的某一行或一个单元，弹出FORM1，同时FORM1的指针指向在MSHFLEXGRID上双击那一行相对应的数据（既如果点击MSHFLEXGRID里编号为001的那行数据，同时弹出的FORM1显示的为001相对应的数据）。Top