procedure TForm1.BitBtn2Click(Sender: TObject);
var
sql:string;
begin
table1.refresh;
sql:='select * from product';
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open;
end;
这是我的原代码,我运行程序后,delete了几条record,然后刷新,但是它总是出错,我在另外一个程序上运行他就可以!为什么??请大虾帮忙!谢谢,(我没有积分,sorry)
var
sql:string;
begin
table1.refresh;
sql:='select * from product';
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open;
end;
这是我的原代码,我运行程序后,delete了几条record,然后刷新,但是它总是出错,我在另外一个程序上运行他就可以!为什么??请大虾帮忙!谢谢,(我没有积分,sorry)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货