在第一个DBGrid的onCellClick事件里传一个参数做为第二个DBGrid数据源取数据的条件EXAMPLE: 第一个DBGRID的数据源为DataM.PubADOQu 第二个的数据源为DataM.PubADOQu with DataM.Pub1ADOQu do begin close; sql.clear; sql.add('select * from pats_in_hospital where patient_id=:ID'); Parameters.ParamValues['ID']:=DataM.PubADOQ.FieldByName('ID').AsString; prepared; open; end;
第一个DBGRID的数据源为DataM.PubADOQu 第二个的数据源为DataM.PubADOQu
with DataM.Pub1ADOQu do
begin
close;
sql.clear;
sql.add('select * from pats_in_hospital where patient_id=:ID');
Parameters.ParamValues['ID']:=DataM.PubADOQ.FieldByName('ID').AsString;
prepared;
open;
end;