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

[pantung]

这个工程里有 form1 和 form2
form1 中有 MSHFlexGrid1控件，mssql里有记录若干
单击 MSHFlexGrid1 中的一条记录，弹出 form2（用来更新这条记录）

问题：
怎么实现 单击的这条记录各字段记录 出现在form2中的 .text里？

[vbman2003]

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
试试吧

[vbman2003]

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

试试吧

[pantung]

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