Menjumlakan Field TAble

begin

    Jumlah := 0;

    dm.VTPrice.First;

    while not dm.VTPrice.Eof do

    begin

     Jumlah := Jumlah + dm.VTPrice['Total'];

     dm.VTPrice.Next;

    end;

  //  lblInstallasiPart.Caption := FloatToStr(Jumlah);

    if chkIDR.Checked then

    begin

     //lbltotal1.Caption := FloatToStr(Jumlah);

     lbltotalPartIDR.Caption:=formatfloat('#,##0,00',Jumlah);

     lblInstallasiPartIDR.Caption:=formatfloat('#,##0,00',Jumlah);

     lbltotalPartUSD.Visible:=False;

     lbltotalPartIDR.Visible:=True;

     lblInstallasiPartUsd.Visible:=False;

    end

    else

    begin

     lbltotalPartUSD.Caption := FloatToStr(Jumlah);

     lblInstallasiPartUsd.Caption:= FloatToStr(Jumlah);

     lbltotalPartIDR.Visible:=False;

     lblInstallasiPartIDR.Visible:=False;

     lbltotalPartUSD.Visible:=True;

     lblInstallasiPartUsd.Visible:=True;

    end;

  end;