作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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);
}

相关软件：