请参考如下代码:
procedure demo;
var a,b:integer;
begin
a:=adodataset1.fieldbyname('col1').asinteger+adodataset1.fieldbyname('col2').asinteger
b:=adodataset1.fieldbyname('col3').asinteger+adodataset1.fieldbyname('col4').asinteger
if a>b then
adodataset1.fieldbyname('col5').asinteger:=a-b
else
adodataset1.fieldbyname('col6').asinteger:=a;
end;
然后把该过程放在adodataset1的beforepost事件中即可!
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
procedure demo;
var a,b:integer;
begin
a:=adodataset1.fieldbyname('col1').asinteger+adodataset1.fieldbyname('col2').asinteger
b:=adodataset1.fieldbyname('col3').asinteger+adodataset1.fieldbyname('col4').asinteger
if a>b then
adodataset1.fieldbyname('col5').asinteger:=a-b
else
adodataset1.fieldbyname('col6').asinteger:=a;
end;
然后把该过程放在adodataset1的beforepost事件中即可!
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货