待拷代码--

 

 

  procedure TGetMoneyEditForm.wwDBGrid1ColExit(Sender: TObject);
begin
  inherited;
  //--统计字段的值，并赋给CDS1

   if  (CDS2.aggregates[0].Value = null) then      //--第一行的时候，该值会为空，所以要判断它
   begin
     //ShowMessage(FloatToStr(CDS2.aggregates[0].value));
    if (FMBillGetMoney.cds1.Active)  then
    begin
         if (not (FMBillGetMoney.cds1.State in [dsInsert,dsEdit])) then
         begin
           FMBillGetMoney.cds1.Edit;
         end;
         FMBillGetMoney.cds1.FieldByName('Amount').Value := CDS2.FieldByName('Fee').Value;
         FMBillGetMoney.cds1.Post;
    end;
   end;
end;

-------------------------------------------------------------------------

procedure TGetMoneyEditForm.CDS2AfterScroll(DataSet: TDataSet);
begin
  inherited;
     if  (CDS2.aggregates[0].Value <> null) then
  begin
     //ShowMessage(FloatToStr(CDS2.aggregates[0].value));
    if (FMBillGetMoney.cds1.Active)  then
    begin
         if (not (FMBillGetMoney.cds1.State in [dsInsert,dsEdit])) then
         begin
           FMBillGetMoney.cds1.Edit;
         end;
         FMBillGetMoney.cds1.FieldByName('Amount').Value := CDS2.aggregates[0].Value;
         FMBillGetMoney.cds1.Post;
    end;
  end;
end;