Erro "Not Edit Mode" ao somar colunas de uma tabela

[Cassiano Vellames 0]

Olá senhores, sou novo aqui no forum, to com uma problema no meu programa

Eu estou tentando somar os valores das coluas do estoque do meu progrma, porem quando mando ele fazer a operação ele dar o erro "Not Edit Mode", sendo que esta em modo de edição

Abaixo o codigo

 

 

unit UProdutos;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;

type
TFormProdutos = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
DBEdit2: TDBEdit;
DBNavigator1: TDBNavigator;
Label6: TLabel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormProdutos: TFormProdutos;

implementation

uses Dados;

{$R *.dfm}

procedure TFormProdutos.Button1Click(Sender: TObject);
var somatotal:currency;
begin
dm_dados.tbl_produtos.Edit;
somatotal:=0;
DM_Dados.tbl_produtos.First;
while not DM_Dados.tbl_produtos.Eof do
begin
somatotal:= somatotal + DM_Dados.tbl_produtosPROD_VALORCOMPRA.value;
DM_Dados.tbl_produtos.next;
end;
DM_Dados.tbl_produtosTOTALVCOMPRA.value := somatotal;


end;

end.

 

 

Eu ja usei isso em outro botao, e funciona perfeitamente, eu tenho 120 produtos cadastrados no estoque, isso tem alguma coisa a ver?

 

[Eisenheim 67]

Olá amigos.

 

Experimente da seguinte maneira:

 

procedure TFormProdutos.Button1Click(Sender: TObject);
var

somatotal:currency;
begin
somatotal:=0;

DM_Dados.tbl_produtos.First;
while not DM_Dados.tbl_produtos.Eof do
begin
somatotal:= somatotal + DM_Dados.tbl_produtosPROD_VALORCOMPRA.value;
DM_Dados.tbl_produtos.next;
end;

 

dm_dados.tbl_produtos.Edit;

DM_Dados.tbl_produtosTOTALVCOMPRA.value := somatotal;

end;

 

Até a próxima. :thumbsup:

[Cassiano Vellames_201385 0]

Brigadão pela ajuda cara funcionou xD

Tipo, pq eu errei? eu pensei que dando edit nela logo no inicio ela ficaria em modo de edição até o final do procedure

 

[Eisenheim 67]

Olá amigo.

 

O problema que após o Edit você mandou sua tabela pro início pra poder varrer os registros, dessa forma ele acabou saindo do modo de edição, pois o "ponteiro se movimentou".

 

Até a próxima. :thumbsup: