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块变量未设置”
求解！

非常感谢你，我觉得不能用循环，grid1表格里有N条数据，我只想把鼠标双击点中的一条加载到form2窗体中，如果用循环的话就把全部都加载过去了。

Grid1是FlexCell表格

封装后FlexCell在别的电脑上是可以使用的，我用的是正版控件，MSFlexGrid也可以起到同样的效果，但用起来很麻烦，
还望 WUBE 请多赐教，谢谢！