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

双击Flexcell的同时获取栏位的位置，
病读取Flexcell资料串中资料索引，
再将文本框移动至该位置，
再失焦的同时将文本里的值，
储存写入到Flexcell资料索引中，
并显示到UI上，示例代码百度到处都是

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

原来这个控件更简单
它已经先帮你把文本框整合进去了

form1:

Option Explicit

Private Sub Form_Load()
    Grid1.Cell(1, 1).Text = "AAA"
    Grid1.ReadOnly = True
    Form2.Show
End Sub

Private Sub Grid1_DblClick()
Dim a As Integer, b As Integer
    With Grid1
        a = .MouseRow: b = .MouseCol
        Form2.Grid1.Cell(a, b).Text = .Cell(a, b).Text
    End With
End Sub

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

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

您忘了VB6有For循环这个指令

请赐教代码，谢谢，谢谢、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块变量未设置”
求解！