怎样取sum()值

[linlingwei]

procedure Tpfck_form.RzBitBtn4Click(Sender: TObject);
var total:double;
begin
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select sum(total) from pfck where user_flag='+''''+form_main.StatusBar1.Panels[1].text+'''');
adoquery1.open ;
怎样把adoquery中的值赋给total?

end;

[yitong0834]

total := adoquery1.fieldbyname('Expr1000').AsVariant;

[haust124]

这样就行了
total:=adoquery1.FieldByName('sum(total)').AsInteger;
应该没有问题的！

[nhdj]

写sql用as就可以了
adoquery1.SQL.Add('select sum(total) as sumall from pfck where user_flag='+''''+form_main.StatusBar1.Panels[1].text+'''');


total:=adoquery1.FieldByName('sumall').AsInteger;

[ailibuli]

也可用别名
adoquery1.SQL.Add('select sum(total) sum_total from pfck where
...
total := adoquery1.fieldbyname('sum_total').AsVariant;