BatchMove的用法 (轉)

BatchMove的用法 (轉)[@more@]

Currency __declspec(dllexport) BMove(TComponent* Owner,TTable *D,TTable *R)
{
  //把一個表追加到另一個表中（用BatchMove)

  mDATE = "SDATE="+Now().DateString();
  TBatchMove *BM=new TBatchMove(Owner);
  Currency CR=0;
  for(R->First();!R->Eof;R->Next()){
  CR += R->FielyName("TPRICE")->AsCurrency;
  BM->=R;
  BM->Destination=D;
  BM->Maps->Clear();
  BM->Mappings->Add("PRICE=TPRICE");
  BM->Mappings->Add("PRUNO=PRUNO");
  >Mappings->Add(mDATE);
  BM->Mappings->Add("UPRICE=UPRICE");
  BM->Mappings->Add("PCS=PCS");
  BM->Mode=batAppend;
  BM->Execute();
  }
  delete BM;
  return(CR);
}