就字段的和---不用SQL语句求

[xxxfffcn]

procedure Tw_shfw.DataSource_GHPJUpdateData(Sender: TObject);
var
total_tmp,totalsum_tmp:integer;
begin
totalsum_tmp:=0;
total_tmp:=0;
with dm_sqlserver.ADOQuery_ghpj do
begin
first;
while not eof do
begin
total_tmp:=FieldByName('price_ghpj').Value+FieldByName('num_ghpj').Value;
totalsum_tmp:=totalsum_tmp+total_tmp;
/// showmessage(floattostr(total_tmp));
next;
end;
w_shfw.Edit_total.Text:=floattostr(totalsum_tmp);
end;
end;

上面的有点问题
在database里price_ghpj为decimal型,num_ghpj为number型

[marf_cn]

什么问题？
看起来没什么错误。

[xxxfffcn]

求字段的和---不用SQL语句求

[xxxfffcn]

报这个错

project eims_system.exe raised exception class EStackoverflow with message 'stack overflow'.process stopped.use step or run to continue.

以下是我保存按钮的代码(按保存按钮后开始计算)

procedure Tw_shfw.SpeedButton_save2Click(Sender: TObject);
begin
try
dm_sqlserver.ADOConnection_sqlserver.BeginTrans;//开始事务
with dm_sqlserver.ADOQuery_GHPJ do
begin
// post;
UpdateBatch();
MessageBox(Handle,pchar('配件数据保存成功!'),'信息',MB_ICONINFORMATION);
end;
dm_sqlserver.ADOConnection_sqlserver.CommitTrans;//提交事务
except
dm_sqlserver.ADOConnection_sqlserver.RollBackTrans;//出现异常，事务回滚
MessageBox(Handle,pchar('配件数据保存失败!'),'提示',MB_ICONEXCLAMATION);
end;
end;

[hmily1688]

如果你的字段为null值时你有没有考虑到呢。
将这句total_tmp:=FieldByName('price_ghpj').Value+FieldByName('num_ghpj').Value;
改为total_tmp:=FieldByName('price_ghpj').AsFloat+FieldByName('num_ghpj').AsFloat;