with adoquery1 do
begin
first;
S := 0;
while not Eof do
begin
fieldvalues['ce']:=fieldvalues['sj']-fieldvalues['jh'];
fieldvalues['ljce']:=fieldvalues['ce']+s;
s:=fieldvalues['ljce'];
Next;
end;
end;
begin
first;
S := 0;
while not Eof do
begin
fieldvalues['ce']:=fieldvalues['sj']-fieldvalues['jh'];
fieldvalues['ljce']:=fieldvalues['ce']+s;
s:=fieldvalues['ljce'];
Next;
end;
end;
解决方案 »
- 想从事delphi开发工作需要哪些条件
- delphi中如何取得数组的长度?
- 想对一个含有回车符号的字段进行加密,不知道有什么好的算法,请指教!谢谢!重谢!
- 谁愿意发一个能在d7下使用的RxLib给我, QQ,MSN,E_Mail都开着等!!!
- 问题没解决,再问:如何在delphi下如何将一简体字符串转换为繁体!高手帮忙!
- 请问一个判断字符串的位置问题!谢谢!
- 各位大侠!小弟做了个三层结构的查询!在客户端写入查询的sql语句及查询条件,但查询时出现“enterprisename is of unknow type" (enterp
- 在三层结构中如何得到数据库中的一张表的结构?
- 高分求题目...
- com的调用问题.
- 急,急,急,求教,关于如何写程序ACCESS数据库的保存和打开,谢谢,马上给分,我都在看
- 大家来说说,如何截获在QQ上面聊天的对方的udp包,分析对方的ip地址。
begin
first;
s := 0 ;
while not eof do
begin
fieldbyname('ce').asinteger:= fieldbyename('sj').asinteger-fieldbname('jh').asinteger;
fieldbyname('ljce').asinteger ;= fieldbyname('ce').asinteger+s;
s ;= fieldbyname('ljce');
refresh;
next;
end;
end;