to mvpsniper(求上进) 我有一个表,表里有五个字段,我添加这个表的记录时出现了错误,我请问 mvpsniper(求上进):你知道我这个错误出在哪儿吗?
qstr:='select kz3,kz7,kz28,ky3,ky7,ky28 from sd6 where'+ ' jq28='''+jyrq+''' or jq3='''+jyrq+''''+ ' order by sybh'; opensql(dm.query1,0,qstr); with dm.query1 do while not eof do begin kj3:=fieldbyname('kz3').asfloat; kj7:=fieldbyname('kz7').asfloat; kj28:=fieldbyname('kz28').asfloat; ky3:=fieldbyname('ky3').asfloat; ky7:=fieldbyname ('ky7').asfloat; ky28:=fieldbyname('ky28').asfloat; 所有字段都是数字型,变量定义为double型,用单步调试发现从kz28、ky28字段取出的数据不对。
opensql函数: procedure opensql(inquery:tquery;flag:integer;sqlstr:string); begin inquery.SQL.Clear; inquery.sql.add(sqlstr); if flag=0 then inquery.open else inquery.ExecSQL; end;
我有一个表,表里有五个字段,我添加这个表的记录时出现了错误,我请问 mvpsniper(求上进):你知道我这个错误出在哪儿吗?
' jq28='''+jyrq+''' or jq3='''+jyrq+''''+
' order by sybh';
opensql(dm.query1,0,qstr);
with dm.query1 do
while not eof do
begin
kj3:=fieldbyname('kz3').asfloat;
kj7:=fieldbyname('kz7').asfloat;
kj28:=fieldbyname('kz28').asfloat;
ky3:=fieldbyname('ky3').asfloat;
ky7:=fieldbyname ('ky7').asfloat;
ky28:=fieldbyname('ky28').asfloat;
所有字段都是数字型,变量定义为double型,用单步调试发现从kz28、ky28字段取出的数据不对。
procedure opensql(inquery:tquery;flag:integer;sqlstr:string);
begin
inquery.SQL.Clear;
inquery.sql.add(sqlstr);
if flag=0 then
inquery.open
else
inquery.ExecSQL;
end;
↑変参定義