请问你是否使用了计算字段,如果是问题就处在此。
在处理计算字段的时候先判断该字段是否为空,再进行数据转换。
如:
if not Query1.FieldByName('Price').IsNull then ....
在处理计算字段的时候先判断该字段是否为空,再进行数据转换。
如:
if not Query1.FieldByName('Price').IsNull then ....
解决方案 »
- 数据库存储图片问题
- 在XP下如何隐藏进程
- 怎样把从服务器端下载的AxtiveXform程序插件中的数据库组件ADOConnection连接到远程服务器端的SQL Server数据库上?
- 双枪将(精通Delphi和VC++的)---请: 《如何在Delphi中实现VC中的Doc/View(文档-视图)架构》
- 关于Form的一个问题
- 请问如何汇总成以下的库存量?
- delphi 获取webbrowser编辑框源代码问题
- 關于MIDAS的問題
- 特急!!!!在delphi下如何获取局域网客户的IP地址?
- 从未见过的问题!!!!!!!
- ** 不一样,就是不一样 —— 这是为什么?
- treeview 中能否显示俩张有相互关系的表中的内容
procedure TForm1.Button1Click(Sender: TObject);
var a,b:real;
begin
with query1 do
close;
sql.clear;
sql.add('select 代码,sum(数量),sum(金额) from kc group by 代码 ');
query1.open;
while query1.eof<>true do
begin
a:=a+query1.fieldvalues['sum of 数量'];
b:=b+query1.fieldvalues['sum of 金额'];
query1.next;
end;
edit1.text:=floattostr(a);
edit2.text:=floattostr(b);
end;
end;
end;