|
用數(shù)據(jù)可以實現(xiàn) procedure Tform1.AppendCurrent(Dataset:Tdataset); Var aField : Variant ; i : Integer ; Begin //創(chuàng)建一個variant類型的數(shù)組 aField := VarArrayCreate([0,DataSet.Fieldcount-2],VarVariant); // 把數(shù)據(jù)集當前數(shù)據(jù)讀入數(shù)組中 For i := 0 to (DataSet.Fieldcount-2) Do Begin aField[i] := DataSet.fields[i+1].Value ; End; DataSet.Append ; // 從數(shù)組中讀出數(shù)據(jù)倒數(shù)據(jù)集中 For i := 0 to (DataSet.Fieldcount-2) Do Begin DataSet.fields[i+1].Value := aField[i] ; End; End; procedure TForm1.Button1Click(Sender: TObject); begin self.AppendCurrent(ADOQuery1); end; |
|
|
