Para o AdilsonD

Delphi

12/04/2003

Ai Adilson tudo bem?
ta dando alguns erros a onde que vc coloca (MinhaTabelaMeuCampoValor) ...coloquei ´table1´ e campo ´Valor´ + o erro continua.......[ ] s jairo-GO

+++++++++++++++++
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
SomaValores: Double;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
SomaValores := 0;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
SomaValores := SomaValores + MinhaTabelaMeuCampoValor.Value;
ListBox1.Items.Add(FormatFloat(´#,,,0.00´,MinhaTabelaMeuCampoValor.Value));
Edit1.Text := FormatFloat(´,,,0.00´,SomaValores);
end;

end.


Jairo-go

Jairo-go

Curtidas 0

Respostas

Adilsond

Adilsond

12/04/2003

O que quis dizer foi o seguinte:

Se por acaso voce adicionou os campos a sua Query/Table então voce utiliza o no dos mesmos tipo:

Table1Valor.Value ou seja, imaginando que o campo de sua tabela se chame ´Valor´ e que o tipo seja TFloatField

Se por acaso voce não adicionou os campos a sua Query/Table então voce deve utilizar os Fields, tipo:

Table1.Fields[1].Value ou seja, imaginando que o campo de sua tabela seja o segundo campo e que o tipo seja TFloatField

OK..


GOSTEI 0
POSTAR