好象我的已经可以了吧!你看看,我刚才忘记上传附件了,你现在看看

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

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

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

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

有个办法，你加个宽度为0的列来存放是隐藏行还是不是隐藏行啊， 然后导入的时候判断改列是不是为0和1来判断是否要导入的内容!

移动字段，如果数据很多，速度会很慢的!

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

MSFlexGrid2.RemoveItem (MSFlexGrid2.Row)
End Sub
应该是这样的吧!你的哪个代码怎么来的呢?我不懂

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

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

Private Sub MSFlexGrid2_DblClick()
If MSFlexGrid2.Rows = 1 Then Exit Sub
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
If MSFlexGrid2.Rows <> 2 Then
MSFlexGrid2.RemoveItem (MSFlexGrid2.Row)
MSFlexGrid2.HighLight = flexHighlightAlways
Else
MSFlexGrid2.Rows = 1
MSFlexGrid2.HighLight = flexHighlightNever
End If
End Sub
'招式有点流氓,但是效果实现了

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

代码对吗?我的可以啊!

Private Sub MSFlexGrid2_DblClick()
If MSFlexGrid2.Rows = 1 Then Exit Sub
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
If MSFlexGrid2.Rows <> 2 Then
MSFlexGrid2.RemoveItem (MSFlexGrid2.Row)
MSFlexGrid2.HighLight = flexHighlightAlways
Else
MSFlexGrid2.Rows = 1
MSFlexGrid2.HighLight = flexHighlightNever
End If
End Sub
这个代码没问题啊!我用的是rows=1啊,在等于2的时候,所以不存在你说的问题啊!