Question

delphi 字段求和 为什么只能算第一行 第二行开始就算不了了

procedure TForm5.ADOQuery2FieldGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
var
A,B,C,D,E,F:integer;
begin
A:=ADOQuery1.FieldByName('护理费').Value;
B:=ADOQuery1.FieldByName('床位费').Value;
C:=ADOQuery1.FieldByName('注射费').Value;
D:=ADOQuery1.FieldByName('药费').Value;
E:=ADOQuery1.FieldByName('治疗费').Value;
F:=ADOQuery1.FieldByName('手术费').Value;
Text:= IntToStr(A+B+C+D+E+F);

end;

Answer 1

要加循环
ADOQuery1.first
while not ADOQuery1.eof do
begin
///计算
ADOQuery1.next;
end;

Answer 2

adoquery1.close;
adoquery1.sql.clear;
adoqurry1.sql.add('选择语句');
adoquey1.open;
adoquery1.first;
for i=1 to recordacount do begin
你的求和语句
next;
end;