方先生 我是天津宏大陈 代码给我 谢**

zhuwenming

方先生 我是天津宏大陈

zfang

代码设置表与表之间的过滤关系就类似于这样子：
DataSetBZSJJ1  --主表
DataSetBZSJJ2  --从表
procedure TZCSJJYS.DataSetBZSJJ1AfterScroll(DataSet: TDataSet);
begin
  //利用服务端过滤
  DataSetBZSJJ2.SQLFilter := 'ddbh = '''+DataSet.FieldByName('ddbh').AsString+''' '; //ddbh是他们关联字段
  DataSetBZSJJ2.SQLFiltered := True;
end;