Como sumar los datos de un dbgrid!!!

[jirbert]

hola rolandoj gracias por los consejo se que son muy utiles!! y tienes razon tengo qeu adentrarme un poco mas a la teoria para la practica!! en fin gracias ya consegui un codigo super fino me funcina de maravilla no me complico,, gracias de igual forma son muy amables las personas del foro gracias a ustedes he podido aclarar algunas conchas de mango que se me hacen un poco dificiles!! pero muchas gracias!!!

[[egostar]]

Empezado por jirbert

hola rolandoj gracias por los consejo se que son muy utiles!! y tienes razon tengo qeu adentrarme un poco mas a la teoria para la practica!! en fin gracias ya consegui un codigo super fino me funcina de maravilla no me complico,, gracias de igual forma son muy amables las personas del foro gracias a ustedes he podido aclarar algunas conchas de mango que se me hacen un poco dificiles!! pero muchas gracias!!!

Hola jirbert, que bueno que ya conseguiste solucionar tu problema, pero uno de los espiritus del club es mostrar la solución a la problematica que se tenia, te invito a postear la solución para que otro compañero con la misma duda pueda acceder a la misma y de esta forma beneficiarnos todos.

Salud OS

[jirbert]

bueno sorry por esa!! este me lo dieron desde otro hilo del foro

Código Delphi [-]
procedure TForm5.Button2Click(Sender: TObject);
Var
Precio : Currency;
Marca : TBookMarkStr;
begin
 form1.Table4.delete;
   precio := 0;
    Marca := form1.Table4.Bookmark;
    form1.Table4.DisableControls;
    try
     form1.Table4.First;
      While Not form1.Table4.Eof do
      begin
       Precio := Precio + form1.Table4.FieldbyName('Total').ASCurrency;
       form1.Table4.Next;
      end;
       Label18.Caption := CurrToStr(Precio);
    finally
     form1.Table4.EnableControls;
     form1.Table4.Bookmark := Marca;
    end;

bueno me funcione fino, espero que a otros le sirva!!!