Question

DELPHI adoquery绑定的数据集有两个字段A和B，如何筛选出字段A值为1的记录。

DELPHI adoquery绑定的数据集有两个字段A和B，如何筛选出字段A值为1的记录，并且将这些记录对应的字段B的值进行相加。

Answer 1

var

icount : integer;

begin
icount :=0;
adoquery.Filtered :=False;
adoquery.Filter := 'A =1';
adoquery.Filtered :=True;
if adoquery.RecordCount>0 then
begin
adoquery.First;
while not adoquery.Eof do
begin
icount :=icount + adoquery.FieldByName('B').AsInteger;
adoquery.Next;
end;
end;
end;