//按钮2的代码可以把GRID1的东西对应在GRID2显示出来,但我不想用按钮

Question

//按钮2的代码可以把GRID1的东西对应在GRID2显示出来
但我不想用按钮
我希望当GRID1的指针移动的时候GRID2自动显示
不知道这样需要用到GRID什么事件，
请帮我修改
procedure TForm1.FormActivate(Sender: TObject);
begin
self.ado1.Close;
ado1.SQL.Clear;
ado1.SQL.Add('select * from dbo.a1');
ado1.Open;
end;procedure TForm1.Button1Click(Sender: TObject);
var
s1:string;
begin
      s1 := 'select * from a2 where dh  = '  + ado1.FieldByName('dh').AsString;
      //self.Caption := s1;
      ado2.Close;
      ado2.SQL.Clear;
      ado2.SQL.Add(s1);
      ado2.Open;      end;

Answer 1

在dbgrid.datasource.dataset.afterscroll中写代码。

Answer 2

呵呵,你是用ADO的话,你可以用MasterDetail的方法.
主表不变,
明细表,其中要有一个字段做为主从表的关联字段.如DH,(当然要主表都要用DH这个字段)
明细表的DataSource设为主表的DataSource,
SQL.TEXT应该为
select * from a2 where dh  = : DH
其中DH为主表的一个字段名,一定要一样.
这就可以了.