双击Flexcell表格里的某一条数据，把这条数据加载到另一个窗口中的Flexcell表格里，怎么实现 ，谢谢

能写代码出来吗， 谢谢，百度上没找到

谢谢，谢谢wube的热心帮助 ，谢谢！

双击后只能把一个格子里的数据加到另个窗体中的GRID表里，不能加整行数据哦！

请赐教代码，谢谢，谢谢、1

Private Sub Grid1_DblClick()
Dim i As Long
With Grid1
Form2.Grid1.Rows = Form2.Grid1.Rows + 1
For i = 1 To Grid1.Rows - 1
Form2.Grid1.Cell(i, 1).Text = .Cell(i, 1).Text
Form2.Grid1.Cell(i, 2).Text = .Cell(i, 2).Text
Form2.Grid1.Cell(i, 3).Text = .Cell(i, 3).Text
Form2.Grid1.Cell(i, 4).Text = .Cell(i, 4).Text
Form2.Grid1.Cell(i, 5).Text = .Cell(i, 5).Text
Form2.Grid1.Cell(i, 6).Text = .Cell(i, 6).Text
Form2.Grid1.Cell(i, 7).Text = .Cell(i, 7).Text
Form2.Show
Next i
End With
End Sub
这里提示“对象变量或With块变量未设置”
求解！