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

Question

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

Answer 1

我想那个另外的窗口可以在开始时就加载，给它个RecIndex属性来与MSFlexGrid对应。
打开或关闭编辑窗，实际上做成隐藏/显示它即可关键是给窗口加个属性。在窗口的代码编辑中，菜单上的添加属性菜单项就可以用了。
OICQ:12092873

Answer 2

我想那个另外的窗口可以在开始时就加载，给它个RecIndex属性来与MSFlexGrid对应。
打开或关闭编辑窗，实际上做成隐藏/显示它即可关键是给窗口加个属性。在窗口的代码编辑中，菜单上的添加属性菜单项就可以用了。
OICQ:12092873

Answer 3

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

Answer 4

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

Answer 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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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