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

建议:
一、使用双击而不是单击，以减少误击的发生。
二、使用绑定。 MSFlexGrid1绑定：select * from 表名 where id in ("& 集合名 &")
MSFlexGrid2绑定：select * from 表名 where id not in ("& 集合名 &")
三、双击时，取那一行的ID值，并且：集合名=集合名+","+ cstr(id)，并同时刷新二个MSFlexGrid

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

是不是这样的要求!

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

我想，你应该另外定义一个表
然后把MSFlexGrid2的Recordsource定义为那个表
当你单击下面一行的时候，就把那个记录添加到那个新建表中
然后你刷新一下MSFlexGrid2
就行了

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

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

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

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

查询中可以用 in来包含你要的关键字

SELECT * FROM bbc
WHERE region IN
(SELECT region FROM bbc
WHERE name IN ('India','Iran'))
或者
SELECT * FROM bbc
WHERE region IN
(SELECT region FROM bbc
WHERE name <> 'India')
之类的

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

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