求救,关于SQL语句的问题(20分)

  • 主题发起人 主题发起人 narduo
  • 开始时间 开始时间
N

narduo

Unregistered / Unconfirmed
GUEST, unregistred user!
请看一下下面这个过程中为什么会出现那种错误(打星号的那一行)
function Tform15.GetKucunJiage:Real;
var
cksl,lyl:real;
begin
lyl:=Table1.FieldByName('数量').Asfloat;
query1.close;
query1.sql.add('Select * From rkmingxi A,ruku B Where B.发票号码=A.发票号码');
query1.sql.add('And A.物品编码=:wpbm And A.领用否<>:yi Order by B.购入日期');
query1.ParamByName('wpbm').Asstring:=Table1.FieldByName('物品编码').Asstring;
query1.ParamByName('yi').asstring:='1';
query1.open;
While not Query1.Eof do
begin
★ cksl:=query1.FieldByName('数量').Asfloat;//出错,FIELD数量找不到,为什么?
lyl:=lyl-cksl;
if lyl>0 then Query1.Next else Query1.Last;
end;
result:=query1.FieldByName('单价').Asfloat;
end;
 
'Select * From rkmingxi A,ruku B Where B.发票号码=A.发票号码');

a.*还是b.*
 
加了A.数量,A.单价,好像还是不行:-(
 
select tablename.数量 as newname from ......
 
终于解决了,因为少了QUERY1.SQL.CLEAR;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
680
import
I
I
回复
0
查看
763
import
I
后退
顶部