请教各位，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

这个工程里有 form1 和 form2
form1 中有 MSHFlexGrid1控件，mssql里有记录若干
单击 MSHFlexGrid1 中的一条记录，弹出 form2（用来更新这条记录）问题：
怎么实现 单击的这条记录各字段记录 出现在form2中的 .text里？

Answer 1

Private Sub fg_Click()
    Dim s() As String
    Dim r As String
    Dim i As Integer
    
    r = fg.Row
    For i=1 to fg.Cols - 1   
        With form2
            .Text1(1).Text = fg.TextMatrix(r, 1)  
            .Text1(2).Text = fg.TextMatrix(r, 2)   
            .Text1(3).Text = fg.TextMatrix(r, 3) 
            ......  
        End With
    Next i
    Form2.Show
End Sub
试试吧

Answer 2

Private Sub fg_Click()
    Dim s() As String
    Dim r As String
    Dim i As Integer
    
    r = fg.Row
    For i=1 to fg.Cols - 1   
        With form2
            .Text1(1).Text = fg.TextMatrix(r, i)  
        End With
    Next i
    Form2.Show
End Sub试试吧

Answer 3

ok,解决，谢谢 vbman2003(家人) ，结贴。