Delphi7 多表查询dbgrid不能更新显示

Question

5个控件分别是ADOConnection1，ADOQuery1，DataSource1，DBGrid1和Button1。dbgrid1可以正常显示查询内容procedure TForm1.FormCreate(Sender: TObject);
begin    
adoquery1.Close;    
adoquery1.SQL.Clear;    
adoquery1.SQL.Add('select T1.A,T1.B,T2.C from T1 left join T2 on T1.A=T2.A');    adoquery1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin  
with ADOQuery1 do   
begin   
ADOQuery1 .close;   
ADOQuery1 .open;   
end ; 
end;更新数据库点击Button1刷新，现在问题是有时点击Button1刷新dbgrid1没反应要多次点击Button1才行请教这个问题怎么解决（我想要的是只要一点击Button1，dbgrid1就正确显示）delphi数据库select

Answer 1

dbgrid1可以正确显示查询结果。现在的情况是如果数据库添加或删除数据。我点击BUTTON刷新 有时dbgrid是正常显示的，有时要点击好多下BUTTON，dbgrid才能正常显示。是什么造成这种现像？怎么解决？