请问，在 DataGrid1 中有没有象 MSFlexGrid1.TextMatrix 中的函数？

Question

请问，在 DataGrid1 中有没有象 MSFlexGrid1.TextMatrix 中的函数？多谢!

Answer 1

Dim r1 As Integer   'To store the flexgrids row position
r1 = frmgrid.MSFlexGrid1.Row 'Get the row position of the flexgrid
frmqp.Label15.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 0) + "." 'Get the sno from the flexgrid and store it in the label15
frmqp.Label10.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 1) 'Get the datas from the flex grid and store it in the label
frmqp.Label6.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 2) 'Get the datas from the flex grid and store it in the label
frmqp.Label7.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 3) 'Get the datas from the flex grid and store it in the label
frmqp.Label8.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 4) 'Get the datas from the flex grid and store it in the label
frmqp.Label9.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 5) 'Get the datas from the flex grid and store it in the label
frmqp.Label13.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 6) 'Get the datas from the flex grid and store it in the label
frmqp.Label11.Caption = frmgrid.MSFlexGrid1.TextMatrix(r1, 7) 'Get the datas from the flex grid and store it in the label
If Len(frmqp.Label10.Caption) <> 0 Then 'if the length of the string of the caption in frmqps label10 is not equal to zero
Load frmqp 'load the frmqp
frmqp.Show vbModal 'show the frmqp alone
End If