| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 760 人关注过本帖
标题:麻烦大家~先谢了~
只看楼主 加入收藏
deandean
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-6-15
收藏
 问题点数:0 回复次数:2 
麻烦大家~先谢了~

我想计算数据表中某个字段值,试着写了下面的东西~ 编译的时候没问题,但在运行计算的时候出错~ 下面出现的字段全用的数字类型~ 我觉得是引用数据元素出的问题~ 哪位高人给指点下~谢了~ begin adoquery1.first; while not adoquery1.EOF do begin

adoquery1.Edit; adoquery1.Append; adoquery1.FieldByName('照明度数').AsString:=strtoint(adoquery1.FieldByName('本月照明 数').AsString) - strtoint(adoquery1.FieldByName('上月照明数').AsString); adoquery1.FieldByName('电炊度数').AsString:=inttostr(strtoint(adoquery1.FieldByName('本月电炊数').AsString) - strtoint(adoquery1.FieldByName('上月电炊数').AsString)); adoquery1.FieldByName('用电总度数').AsString:=inttostr(strtoint(adoquery1.FieldByName('照明度数').AsString) + strtoint(adoquery1.FieldByName('电炊度数').AsString)); adoquery1.FieldByName('用电金额').AsString:=inttostr(strtoint(adoquery1.FieldByName('用电总度数').AsString) * strtoint(edit2.text));

adoquery1.post; adoquery1.Append; adoquery1.Next; end;

搜索更多相关主题的帖子: 麻烦 
2005-06-15 20:09
wolf
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2005-6-6
收藏
得分:0 
adoquery1.Edit;
  adoquery1.FieldByName('照明度数').AsString:=strtoint(adoquery1.FieldByName('本月照明         数').AsString) - strtoint(adoquery1.FieldByName('上月照明数').AsString);
  adoquery1.FieldByName('电炊度数').AsString:=inttostr(strtoint(adoquery1.FieldByName('本月电炊数').AsString) - strtoint(adoquery1.FieldByName('上月电炊数').AsString));
  adoquery1.FieldByName('用电总度数').AsString:=inttostr(strtoint(adoquery1.FieldByName('照明度数').AsString) + strtoint(adoquery1.FieldByName('电炊度数').AsString));
  adoquery1.FieldByName('用电金额').AsString:=inttostr(strtoint(adoquery1.FieldByName('用电总度数').AsString) * strtoint(edit2.text));  adoquery1.post;
adoquery1.open;
  adoquery1.Next;


这下应该可以了

我的群为(IT学院):8114403 欢迎大家加入共同讨论IT问题!
2005-06-19 11:28
6822421
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-6-3
收藏
得分:0 
同2楼的,1楼程序中循环出错了,逻辑错误,注意到没?
APPEND是插入数据,数据没处于编辑状态怎么进行计算,其实我建议在这种情况下,edit用一个adoquery,append用一个adoquery,这样不会引起混淆
2005-06-21 14:15
快速回复:麻烦大家~先谢了~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016955 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved