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,然后刷新,但是它总是出错,我在另外一个程序上运行他就可以!为什么??请大虾帮忙!谢谢

解决方案 »

  1.   

    如果出错信息是某某字段不存在的话,你可以安装我下面的方法做
    首先你要保证你统计出来的数据表的字段都是相同的,比如只有mc,nr等,然后使用两个数据源.这里假设dbchart的数据源为adoquery1,则修改原代码为
    procedure TForm1.BitBtn2Click(Sender: TObject);
    var
    sql:string;
    begin
      table1.refresh;
      sql:='select * from product';
      query2.close;
      query2.sql.clear;
      query2.sql.add(sql);
      query2.open;
      adoquery1:=adoquery2;
    end;这是为了防止当adoquery断开时,dbchart没有数据源时而引发异常,我的就是这么解决的,当然错误可能不一样,如果不是,你把你出错信息贴出来,
      

  2.   

    对了,忘记件事强烈鄙视楼上的那个chiprobot(芯片宝贝)(把神经接到CSDN上烧录)接分机器,今天一晚上,每个帖子后面都有她,真来气