关于显示 Datagrid 中选中的一行数据？在线等啊。。。。

Question

现在我想把显示 Datagrid 中选中的一行数据显示到界面中的text文本框中，
如何能够做到啊？？？

Answer 1

用MSHFlexGrid比较方便 单击事件
Dim i
Private Sub MSHFlexGrid1_Click()
  Text1.Text = ""
    For i = 1 To MSHFlexGrid1.Cols - 1
    Text1.Text = Text1.Text & "|" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
  Next
End Sub

Answer 2

Private Sub dg_Click()
Dim rs As Recordset
Set rs = dg.DataSource
rs.AbsolutePosition = dg.RowBook(dg.Row)
For i = 0 To rs.Fields.Count - 1
    Text1.Text = Text1.Text & rs.Fields(i).Value
Next i
End Sub

Answer 3

楼上是好方法，但是数据之间没有加间隔：下面加了","间隔
Private Sub dg_Click()
Dim rs As Recordset
Set rs = dg.DataSource
rs.AbsolutePosition = dg.RowBook(dg.Row)
For i = 0 To rs.Fields.Count - 1
    Text1.Text = Text1.Text & iif(len(Text1.Text)>0,",","") & rs.Fields(i).Value
Next i
End Sub