加一句判断
if adoquery1.fieldbyname('mbywc').AsFloat=0 then
adoquery1.FieldByName('dclmb').AsString:=0
else adoquery1.FieldByName('dclmb').AsString := formatfloat('0.00%',adoquery1.fieldbyname('mbwc').AsFloat/adoquery1.fieldbyname('mbywc').AsFloat*100);
if adoquery1.fieldbyname('mbywc').AsFloat=0 then
adoquery1.FieldByName('dclmb').AsString:=0
else adoquery1.FieldByName('dclmb').AsString := formatfloat('0.00%',adoquery1.fieldbyname('mbwc').AsFloat/adoquery1.fieldbyname('mbywc').AsFloat*100);
解决方案 »
- 关于fastReport的问题。。。请帮帮忙。。
- 问个三层的问题,在应用层ADOQuery中写SQL语句,与在客户端ClientDataSet中写SQL语有什么区别没有?
- 求助!!关于Delphi中的判断问题
- 高分求解,数据拟合方面.
- 一个数据库模式问题,急,在线等待
- 小问题,修改列的名称。
- (在线等待。。。。初程问题。。。)我在使用注册表的时候,编译时提示“File not found "TRegistry.dcu”请问如何处理?不好意思只剩100
- 关于开发win2000下的服务程序的问题
- 难到就没人解决吗?怎么把Excel中sheet1中的表复制到sheet2中吗?见帖 关于Excel表格复制的问题??
- 关于流文件的读取问题。
- image1.Canvas.textout(xx,xx,xxxx) 如何清空
- 怎样遍历一个目录里的所有文件并取得文件名?
adoquery1.FieldByName('dclmb').AsString:='0'
try
。。
except
on.....
end;