Z
zhang_yung
Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序如下：
adq.Close;
adq.sql.clear;
adq.SQL.Add(format('select * from sgzadjb where jl_year=''%s'' and jl_month=''%s''',[syear,smonth]));
adq.open;
rec:=adq.RecordCount;
if rec>0 then
begin
//显示数据
end
else
//清除界面
为何我重复调用之后在adq.close处出现错误所要求的是当前记录，而EOF或BOF有一个为真
adq.Close;
adq.sql.clear;
adq.SQL.Add(format('select * from sgzadjb where jl_year=''%s'' and jl_month=''%s''',[syear,smonth]));
adq.open;
rec:=adq.RecordCount;
if rec>0 then
begin
//显示数据
end
else
//清除界面
为何我重复调用之后在adq.close处出现错误所要求的是当前记录，而EOF或BOF有一个为真