过来看看这段代码？

Question

with Query1 do try
  SQL.Text := 'select sum(grjf) as sum1 from jf';
  Open;
  Edit1.Text := FieldByName('sum1').AsString;
  Close;
except
  ShowMessage('不关我的事');
end;

Answer 1

edit1.text:=inttostr(query1.fieldbyname('sum1').asinteger);

Answer 2

你写的是语句，又没写返回值,
edit1.text:=inttostr(query1.fieldbyname('jf').asinteger);

Answer 3

执行完成该句时，query1.active =false ,当然edit1.text:=0 !

Answer 4

TQuery.SQL 是一个TStrings类型
TStrings.Add()只是返回添加的位置
要打开数据库还是要用TQuery.Open()
清楚了吧！

Answer 5

刚才写错了edit1.text:=inttostr(query1.fieldbyname('sum1').asinteger);

Answer 6

感谢各位高手的指点
[email protected]