VB msflexgrid 复制问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:04:14
怎么点击一个按钮 把msflexgrid1上面的数据 全部复制到msflexgrid2上面？

按钮是command1....

建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
MSFlexGrid2.Cols = MSFlexGrid1.Cols
MSFlexGrid2.Rows = MSFlexGrid1.Rows
Dim i As Integer, j As Integer
For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
MSFlexGrid2.Row = i
For j = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = j
MSFlexGrid2.Col = j
MSFlexGrid2.Text = MSFlexGrid1.Text
Next
Next
End Sub

需用循环,逐个单元格进行读取与赋值