取某条记录以后的记录

Question

如果我要从temp表中取某条记录（如status>0 这是唯一的）以后的记录应该怎么取，而且取到的记录要保存到一个数据集当中来啊  
谁能给我详细的代码啊 

Answer 1

如果你使用了adodataset数据集，你可以在过滤字段中加入你限制的条件，

Answer 2

比如说你在ADOdataset中加载了所有的temp数据，现在要部分数据是吗？
 self.ADODataSet1.Filter:='status>0';
   self.ADODataSet1.Filtered:=true；

Answer 3

你一点都不理解我的意思   
我要取的是标志位  status>0  以后的记录  
并不是要取status>0 的记录

Answer 4

老冯总是喜欢这样，慢慢试验把 呵呵！
其实rocxu的方法也不错，至少不用动什么脑筋

Answer 5

procedure CopyRecord(Source, Destination: TDataSet);
var Ind:longint;
    SField, DField: TField;
begin
  for Ind:=0 to Source.FieldCount - 1 do
   begin
     SField := Source.Fields[ Ind ]; 
     DField := Destination.FindField( SField.FieldName ); 
     if (DField <> nil) and (DField.FieldKind = fkData) and
        not DField.ReadOnly then 
        if (SField.DataType = ftString) or
           (SField.DataType <> DField.DataType) then
           DField.AsString := SField.AsString
        else
           DField.Assign( SField )
   end;
end;procedure TFormDemo.ButtonAppendClick(Sender: TObject);
var
  StartRecNo: Integer;
begin
  DataSet_D.Open;
  DataSet_S.Open;
  while not DataSet_S.Eof do
  begin
    if DataSet_S.FieldValues['Status'] > 0 then
       StartRecNo := DataSet_S.RecNo;
    if DataSet_S.RecNo >  StartRecNo then
    begin
       DataSet_D.Append;
       CopyRecord(DataSet_S, DataSet_D);
       DataSet_D.Post;
    end;
    DataSet_S.Next;
  end;
end;

Answer 6

老冯总是喜欢这样，慢慢试验把 呵呵！
其实rocxu的方法也不错，至少不用动什么脑筋================不能把没有测试的任何代码随便公布， 这是一种很不负责的行为。 至于你们的办法都是不符合实际情况的需求的。

Answer 7

没有比以上更好的方法了吗
============
To Be Or Not To Be , This is a Question...... :) :)