BatchMove的用法

Currency __declspec(dllexport) BMove(TComponent* Owner,TTable *D,TTable *R)

{

//把一个表追加到另一个表中（用BatchMove)

file://AisiString mDATE = "SDATE="+Now().DateString();

TBatchMove *BM=new TBatchMove(Owner);

Currency CR=0;

for(R->First();!R->Eof;R->Next()){

CR += R->FieldByName("TPRICE")->AsCurrency;

BM->Source=R;

BM->Destination=D;

BM->Mappings->Clear();

BM->Mappings->Add("PRICE=TPRICE");

BM->Mappings->Add("PRUNO=PRUNO");

file://BM->Mappings->Add(mDATE);

BM->Mappings->Add("UPRICE=UPRICE");

BM->Mappings->Add("PCS=PCS");

BM->Mode=batAppend;

BM->Execute();

}

delete BM;

return(CR);

}