命令有执行，没有错误，但就是更新不了。(35分)

procedure TForm1.Button1Click(Sender: TObject);
begin
执行SQL更新数据;
showmessage('ok');
end;

procedure TForm1.Grid1OleDrop(Sender: TObject; ARow, ACol: Integer;
data: String; var Allow: Boolean);
begin
button1.click;
end;

drop事件触发时能提示OK，说明SQL有执行，但数据没变化，而手动去点button1，数据就有变化，这是为什么。

SQL原代码里面是否有跳出的程序.....