數據集一問，在線等

Question

Dim Rst As New ADODB.Recordset
   Dim TestRst As New ADODB.Recordset
   Set TestRst = Rst
這樣就可以把整個Rst復制給TestRst我的目的是:我只要復制其中滿足條件的一條記錄該如何做?
注意:一定得是從Rst復制，不能從原Table中提取

Answer 1

ublic Function FilterField(rstTemp As ADODB.Recordset, strField As String, strFilter As String) As ADODB.Recordset   rstTemp.Filter = strField & " = '" & strFilter & "'"
   Set FilterField = rstTemp
End FunctionSet TestRst = FilterField(Rst, "字段", "值")