Delphi不是有计算字段吗?设置一个计算字段,然后再Dataset的OnCalFields事件中写计算公式。
解决方案 »
- delphi 多线程 单步调试 诡异现象 无法挂起
- 我真的不是人
- 请问高手,怎么合计DBGrid某一列的数据,具体怎么写????
- 各位高手,求你们看看,我急啊!!!在线等!!!!(祝各位新年快乐!!!万事如意)
- 关于主从数据库的问题——————————在线等!!
- 如何将double转换为integer?
- (未解决....在线等待....)在ListBoxcleck事件中,如何得到ListBox中的被选项的序号,或者直接返回该选项的文件名!(该选项的值为一文件
- SQL和Delphi,谁来维护数据完整性、一致性的疑问?欢迎大家讨论!
- 〓〓〓〓 如何获取ip地址 〓〓〓〓
- 我对table增加了一列查找列之后,每次运行都报告找不到对应的“列”如:Ffield'id'not found,请高手一定要帮忙啊!!
- sql语言怎用呀?
- 谁有ADO sp2!?请发到我的邮箱[email protected]
在选取折扣率(用下拉选取,也在dbgrid中)后,当前记录的"打折后的价格"才计算出来,不是整个DBGrid的"打折后的价格"都计算,明白我的意思吗?
Query1.Edit;
Query1.FieldByName('Price').AsFloat:=Quey1.FieldByName('Price').AsFloat*Query1.FieldByName('折扣').AsFloat;
这段代码放在哪个地方?会只对当前选取的记录起作用吧,不会也把下面或上面的记录进行计算吧?
打開Editor DBGrid.Columns加入4列:Name(商品名稱),Yuanjia(原價),ZheLv(折率),Zhehoujia(折後價).選擇ZheLv編輯其PickList屬性.2.然后再Dataset的OnCalFields事件中写计算公式。
procedure TForm1.Query1CalFields(Sender:TObject);
begin
Query1Zhehoujia.Value:=Query1Yuanjia.Value*Query1ZheLv.Value;
end;