为什么不在SQL语句里做计算
ADOQuery1.SQL.Text := 'Select 单价,数量,合计=单价*数量
From yourtable';
ADOQuery1.Open;如果不在SQL语句作计算,可以这样试试(将修改数据库记录)
ADOQuery1.Edit;
ADOQuery1.FieldByName('合计').value := ADOQuery1.FieldByName('数量').AsInteger*ADOQuery1.FieldByName('单价').AsCurrency;
ADOQuery1.Active := False;
ADOQuery1.Active := True;
ADOQuery1.SQL.Text := 'Select 单价,数量,合计=单价*数量
From yourtable';
ADOQuery1.Open;如果不在SQL语句作计算,可以这样试试(将修改数据库记录)
ADOQuery1.Edit;
ADOQuery1.FieldByName('合计').value := ADOQuery1.FieldByName('数量').AsInteger*ADOQuery1.FieldByName('单价').AsCurrency;
ADOQuery1.Active := False;
ADOQuery1.Active := True;
解决方案 »
- TToolbar控件应用问题..
- 如何在文本文件中查找一个字符串所在的行数?
- 函数的引用问题
- 疑惑,什么时候选用C/S模式,什么时候选用B/S模式(在线等)
- 这个报表如何做?那些memo不太好处理
- 选择你的人生,选择你的前途(程序员发展必读)!!!请进!
- 关于用NMFTP控件下载多个文件的问题。
- gettabledata(''.pointer) 应用即取出数据库数据到COMBOBOX.items 里面,菜鸟请教
- delphi6 + access 2000 有一 Bug ,影響到你的源程式打不開(經本人証實,小心:試驗之前請備份源程式 )
- RAVE 如何获取到数据库中JPEG格式的图片
- 用Canvar画的图怎么保存?
- 菜鸟学delphi第二天遇到的问题??
我按你的第一种方法试了,还是不行,合计的值还是为零
第二种我还没试;
to fs_windy(飛龍) :
我的计算字段应该没问题,而且我也是在运行时查看结果的
第二中方法我也试了,还是不行,是不是有什么别的原因?
大家在表中计算合值时如何使的,用什么东西?
我都快一个下午了,没能出来。
ADOQuery1.SQL.Text := 'Select 单价,数量,合计=单价*数量
---->>>>
ADOQuery1.SQL.Text := 'Select 单价,数量,单价*数量
呵呵,真是的
我用的是Access2000
在OnCalcField事件中计算字段名.values:=ADOQuery1.field('单价').AsCurrency*ADOQuery1.field('数量').asinteger;
你试试看!
原来是这样:
ADOQuery1.SQL.Text := 'Select 单价,数量,合计=单价*数量
---->>>>
ADOQuery1.SQL.Text := 'Select 单价,数量,单价*数量
呵呵,真是的
我用的是Access2000
-----------------------------------------------------------上面SQL.Text写错了,改为如下:
ADOQuery1.SQL.Text := 'Select 单价,数量 From 你的表'而右键单击ADOQuery1添加一个计算字段问题就OK啦