![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
![]() Buenos dias a Todos. Les pido su colaboracion para resolver este problema que tengo con la suma en las columnas de cantidad de articulos e Importe.
No he podido colocar estos valores en sus respectivos LabelImporte y LabelCantArticulos, ademas de ponerme un error "incompatible types" en la linea del While. Cualquier comentario al respecto Me sera de mucha Utilidad De antemano Muchas gracias. Código:
procedure TFormPrincipal.DBGrid11KeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then // Si se pulsa la tecla ENTER en el Grid begin if DBGrid11.Fields[1].Value = Null then DBGrid11.Fields[1].AsFloat := 1; // CANTIDAD if DBGrid11.Fields[1].Value = Null then DBGrid11.Fields[4].AsFloat := 0; // PRECIO UNITARIO DBGrid11.Fields[5].AsFloat := DBGrid11.Fields[1].AsFloat * DBGrid11.Fields[4].AsFloat; // IMPORTE LabelImporte.Caption := '0'; LabelCantArticulos.Caption := '0'; DataSourcePartVta.DataSet.First; // primer registro While DataSourcePartVta.DataSet.EnableControls = False do begin DBGrid11.Fields[5].AsFloat:= DBGrid11.Fields[1].AsFloat * DBGrid11.Fields[4].AsFloat; LabelImporte.Caption:=FloatToStr(DBGrid11.Fields[5].AsFloat + StrToFloat(LabelImporte.Caption)); LabelCantArticulos.Caption:=FloatToStr(DBGrid11.Fields[1].AsFloat + StrToFloat(LabelCantArticulos.Caption)); DataSourcePartVta.DataSet.Next; // siguiente registro end; end; end; end. |
#2
|
|||
|
|||
Ya me funciono, Muchas gracias.
Fue con Código:
While not (DBGrid11.DataSource.DataSet.Eof) do |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Funcion para sumar meses? | patorecalde | MS SQL Server | 2 | 21-08-2007 20:24:17 |
Ayuda para asignar campo a columna de TDBGrid | kaozz | OOP | 3 | 17-07-2007 03:07:47 |
problemas con TDBGRID | lazarous | Varios | 1 | 10-11-2005 16:01:44 |
sumar columna para que salgan en query | narciso | SQL | 4 | 26-07-2005 10:51:43 |
Problemas con TDBGrid | Novás | Varios | 0 | 30-01-2004 10:32:20 |
![]() |
|