怎样将表中的ID字段所有值加入一个集合ALL，怎样移除。不会作啊。请大家个写一下

Question

怎样将表中的ID字段所有值加入一个集合ALL，怎样移除不会作啊。请大家个写一下。  将表的ID字段所有值加入一个集合ALL，选择时，每选一个，从集合中移去该ID值，再用'SELECT * FROM BIAO1 WHERE ID= '"& ALL（INT（RND*ALL.COUNT+1））&"'"选择记录
 

Answer 1

你的ALL是数组？还是别的？

Answer 2

是什么意思?是不是
rst.open "select id from talbe",connset all=new colliction
for i = 1 to rst.recordcount
  all.add rst.fields(0)
  rst.movenext
next
............
i=INT（RND*ALL.COUNT+1)
'SELECT * FROM BIAO1 WHERE ID= '"& ALL（INT（RND*ALL.COUNT+1））&"'"
all.remove i

Answer 3

删除一个ID从集合中
Sub DeleteRec(ID as string)
    Dim strID As Collection
    Dim i As Integer
    For i = 0 To strID.Count - 1
        If strID.Item(i) = ID Then
            strID.Remove i
            Exit For
        End If
    Exit For
End Sub