在DataGrid的RowColChange事件中编写代码实现
dim i as integer
for i =1 to......
......................
text(i)=datagrid1.Columns(i).text
...........................
给你看个我写的例子吧
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim i As Integer For i = 0 To 7 Me.Text1(i).Text = Me.DataGrid1.Columns(i).Text Next i
End Sub
--------------------------------------------------------------------------其中TEXT1为控件数组