delphi程序问题,运行就死,为啥?

发布网友 发布时间：2024-10-08 08:35

我来回答

共2个回答

热心网友 时间：2024-10-25 23:00

var
bh1:string;
je2:double;
begin
with datacontrls.j_Table do
begin //增加该块
while not eof do
begin
bh1:=fieldbyname('bh').AsString ;
with sqlquery do
begin
SQL.clear;
sql.add('select sum(je) as je3 from ys_yk.dbf');
sql.Add('where bh= :bh2 ');
parambyname('bh2').asstring:=bh1;
prepare;
open;
end;
edit;
fieldbyname('jf').AsFloat :=sqlquery.fieldbyname('je3').AsFloat ;
post;
next;
end;
end; //增加该块
end;

似乎需要增加个控制块吧,好象没啥问题,单步走下

热心网友 时间：2024-10-25 23:01

跟一下，看在哪里死掉的

热心网友 时间：2024-10-25 22:56

var
bh1:string;
je2:double;
begin
with datacontrls.j_Table do
begin //增加该块
while not eof do
begin
bh1:=fieldbyname('bh').AsString ;
with sqlquery do
begin
SQL.clear;
sql.add('select sum(je) as je3 from ys_yk.dbf');
sql.Add('where bh= :bh2 ');
parambyname('bh2').asstring:=bh1;
prepare;
open;
end;
edit;
fieldbyname('jf').AsFloat :=sqlquery.fieldbyname('je3').AsFloat ;
post;
next;
end;
end; //增加该块
end;

似乎需要增加个控制块吧,好象没啥问题,单步走下

热心网友 时间：2024-10-25 23:03

跟一下，看在哪里死掉的