如题。

解决方案 »

  1.   

    if Query1.Active then
          Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Text := 'Delete from OilDepot_Info where     
                 OilDepot_NO='+''''+QueryForm.FindQuery.FieldByName('OilDepot_NO').Value+'''';
      Query1.ExecSQL;
      Query1.Open;
      

  2.   

    ExeSQL后还打开干啥?你这里好像不能打开什么东西了吧?
      

  3.   

    已经搞定
    刚开始没Query1.ExecSQL;
    后来加了就可以了,然后删除Query1.Open;
    谢谢各位!
    结贴~~
      

  4.   

    加上Query1.RequestLive := true;