¿es posible darle a un edit lo que dice en una fila de un dbgrid?

[jirbert]

disculpa eduarcol como hago para que en un label se sumen los datos de un dbgrid como por ejemplo los precios en un label llamado total.. disculpa la molestia

[*Caro*]

Hola jirbert, haces algo parecido a lo que te ha indicado Eduardo, solo que en vez de recuperar el valor como Cadena con AsString, puedes utilizar AsReal o AsCurrency y despues de hacer la suma lo conviertes a cadena.

Código Delphi [-]
 Label1.Caption := CurrToStr(MiTabla.FieldbyName('MiCampo2').ASCurrency+MiTabla.FieldbyName('MiCampo1').ASCurrency);

Saluditos

[jirbert]

oye esta bueno al parecer funciona pero no me suma toda la columna me sume es la fila y solo cuando me para sobre ella!!! no se que he hecho mal!!!
gracias por el cod..

[[eduarcol]]

Hola Caro, un placer verte por aqui a estas horas...


A lo que vamos, asi como te dice Caro es para sumar una linea, ahora si lo que quieres es sumar una columna deberas recorrer el dataset o realizar un query con el sum

[jirbert]

disculpa eduarcol no tengo mucha esperiencia en el lenguaje delphi me podrias explicar un poco mas eso del query.
gracias

[[eduarcol]]

yo creo que el que deberia explicarte un poco mejor eres tu, dinos como te conectas, a que te conectas, trata de detallar tu entorno porq recuerda que no podemos adivinar lo que tienes

[jirbert]

bueno aqui tratandito de hacer un programa de facturacion tengo edit's para agregar en la base de datos con la que trabaja el dbgrid bueno quiero que en un label en la parte de afuera del form que me indique el total de los productos que se han agregado en esa base de datos. me esplico? tengo una base de datos en table dbaseIV

[*Caro*]

Hola Eduardo y jirbert, como te dice eduardo debes recorrer tu DataSet para hacer el calculo de la suma o hacer una consulta utilizando un Query.

Ej. para hacer una suma recorriendo un DataSet, aquí debes tomar en cuenta dos cosas, al recorrer tu DataSet veraz como todos los componentes que estan asociados a tu dataSet iran mostrando los registros a medida que los recorres, para evitar esto puedes utilizar DisableControls para desabilitar dichos componentes hasta que termines de recorrer tu DataSet. Y también talvez ponerte un marcador (BookMark) para que una vez terminado de recorrer regreses al registro donde estaba incialmente.

Código Delphi [-]
var
 Precio : Currency;
 Marca : TBookMarkStr;
begin
    precio := 0;
    Marca := MiTabla.Bookmark;
    MiTabla.DisableControls;
    try
     MiTabla.First;
      While Not MiTabla.Eof do
      begin
       Precio := Precio + MiTabla.FieldbyName('MiCampo').ASCurrency;
 
       MiTabla.Next;
      end;
      Label1.Caption := CurrToStr(Precio);
    finally
     MiTabla.EnableControls;
     MiTabla.Bookmark := Marca;
    end;

y si lo quieres hacer con una consulta, es suficiente que pongas "Select Sum(MiCampo) From MiTabla".

Saluditos