[此贴子已经被作者于2007-6-27 17:29:06编辑过]

MSFlexGrid2的数据是来自(统一科目表.mdb)，我的目的是直接在MSFlexGrid2移动数据到MSFlexGrid1（表面移动数据），先不去考虑数据库的更新问题。

Private Sub MSFlexGrid2_DblClick()
With MSFlexGrid1
LRow = MSFlexGrid2.RowSel
.Rows = .Rows + 1 '追加一行
MaxRow = .Rows '最后一行
.RowHeight(MaxRow - 1) = 300 '保持行高
.TextMatrix(MaxRow - 1, 1) = MSFlexGrid2.TextMatrix(LRow, 1)
.TextMatrix(MaxRow - 1, 2) = MSFlexGrid2.TextMatrix(LRow, 2)
.TextMatrix(MaxRow - 1, 3) = MSFlexGrid2.TextMatrix(LRow, 3)
.TextMatrix(MaxRow - 1, 4) = MSFlexGrid2.TextMatrix(LRow, 4)
.TextMatrix(MaxRow - 1, 5) = MSFlexGrid2.TextMatrix(LRow, 5)
.TextMatrix(MaxRow - 1, 6) = MSFlexGrid2.TextMatrix(LRow, 6)
End With
End Sub

我想点击下面MSFlexGrid2的任选一行时，让其当前行的内容赋值给上面MSFlexGrid1相对应单元格。
以上这一步已经实现了，现在还有下面的要求不知道如何代码实现？

*** 并让该行从MSFlexGrid2隐藏或消失（单指表面现象，不是指数据库删除该条记录） ***

用这句代码是如何修改的？ object.Remove(key)

[此贴子已经被作者于2007-6-28 12:47:26编辑过]

*** 并让该行从MSFlexGrid2隐藏或消失（单指表面现象，不是指数据库删除该条记录） ***

用这句代码是如何修改的？ object.Remove(key)

通过设定行高[MSFlexGrid2.RowHeight(MSFlexGrid2.Row) = 0]来隐藏也是一种方法。

就是有这样的情况：假设再把MSFlexGrid2的全部内容导入数据库时，这些行高为0的行，是不是也一并再次导入了（我的意思是不让其导入）？

用下面的这句移去记录的代码通不过，怎么修改？
MSFlexGrid2.RowSel.Remove (MSFlexGrid2.Row)

[此贴子已经被作者于2007-6-28 14:12:52编辑过]

谢谢楼上提供的代码，可以了。

在最后一条记录时，移除时会出错，如何完善一下？谢谢！

全部移除后，出现如下错误提示：

If MSFlexGrid2.Rows = 1 Then Exit Sub
这一行忘记了加，可以了，谢谢谢谢！

[此贴子已经被作者于2007-6-28 23:05:02编辑过]