数据库是paradox,求c41(N型)字段的最大值
procedure Ttj4.Button1Click(Sender: TObject);
var
 xy:double;
begin
 dm.Qjhb.close;
 dm.qjhb.SQL.clear;
 dm.qjhb.sql.add('select max(c41) as c441 from jhb');
 dm.qjhb.open;
 xy:=dm.qjhb.fieldbyname('c441').asfloat;;
 showmessage(floattostr(xy));
end;

解决方案 »

  1.   

    就是运行时出错,说是找不到字段A1,当然A1也是一个字段,我认为求最大值与A1无关,再请看看
      

  2.   

    我认为不是SQL语句的问题,你找找其它的问题?
      

  3.   

    改为:
    procedure Ttj4.Button1Click(Sender: TObject);
    var
     xy:double;
    begin
     dm.Qjhb.close;
     dm.qjhb.SQL.clear;
     dm.qjhb.sql.add('select max(c41) from jhb');
     dm.qjhb.open;
     xy:=dm.qjhb.fields[0].asfloat;;
     showmessage(floattostr(xy));
    end;