请问:如何使Dbgrid的某一列数值以百分数形式显示 解决一定给分 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写个计算字断或直接+%给个例子: 计算百分比procedure Tdata.jlCalcFields(DataSet: TDataSet);var s1, s2, s3,s4:string;begin s1:=data.jl.FieldByName ('非法').value; s2:=data.jl.FieldByName ('合法').value; s3:=inttostr(strtoint(s1)+strtoint(s2)); s4:=copy(floattostr(strtoint(s1)/strtoint(s3)),pos('.',floattostr(strtoint(s1)/strtoint(s3)))+1,2); data.jl.FieldByName ('bl').value:=s4+'%';end; 我的解决办法是:在adoquery的afterinsert事件中写: DataSet.FieldByName('DISCOUNT').AsFloat := 100.00;{折扣} 设置DisCount字段的显示格式(displayformat):0.00%在保存到数据之前,也就是BeforePost事件中写CodeQuery.Parameters.ParamByName('DISCOUNT').Value := (FieldByName('DISCOUNT').AsFloat)/100; 请教高手:存储过程的几个基础问题,在线给分 百分求教一个很老的算法---邮票问题 dll怎样获得是谁在调用他本身,返回调用者的handle 用NMFTP控件上传,下载文件时如何显示进度?(不够再加分online-waiting) skinengine的问题 新手请问大家一个简单的问题?枚举问题。 做过EDI程序的同僚请进 刷新窗口用什么语句? 怎么样删除控件 关于windows和delphi 6 安装的菜菜问题! 如何使与数据库连接失败时只显示信息不报错 重庆的有不有?一个月多少钱?
给个例子: 计算百分比procedure Tdata.jlCalcFields(DataSet: TDataSet);
var
s1, s2, s3,s4:string;
begin
s1:=data.jl.FieldByName ('非法').value;
s2:=data.jl.FieldByName ('合法').value;
s3:=inttostr(strtoint(s1)+strtoint(s2));
s4:=copy(floattostr(strtoint(s1)/strtoint(s3)),pos('.',floattostr(strtoint(s1)/strtoint(s3)))+1,2);
data.jl.FieldByName ('bl').value:=s4+'%';
end;
DataSet.FieldByName('DISCOUNT').AsFloat := 100.00;{折扣}
设置DisCount字段的显示格式(displayformat):0.00%在保存到数据之前,也就是BeforePost事件中写
CodeQuery.Parameters.ParamByName('DISCOUNT').Value := (FieldByName('DISCOUNT').AsFloat)/100;