Code: Select all
var
Master, Detail: TOraQuery;
MasterSource: TDataSource;
begin
Master := TOraQuery.Create(Self);
Master.SQL.Text := 'select 3 id from dual where 1=0'; //dont work
// Master.SQL.Text := 'select 3 id from dual'; // work
Detail := TOraQuery.Create(Self);
Detail.SQL.Text :='Select * from '+
'(select 1 id from dual union all '+
'select 2 id from dual union all '+
'select 3 id from dual union all '+
'select 4 id from dual union all '+
'select 5 id from dual )';
Detail.MasterFields := 'id';
Detail.DetailFields := 'id';
MasterSource := TDataSource.Create(Self);
MasterSource.DataSet := Master;
Detail.MasterSource := MasterSource;
Master.Session:=OraSession;
Detail.Session:=OraSession;
Master.Open;
Detail.Open;
Master.Edit;
Master.FieldByName('id').AsInteger:=4;
Showmessage('MasterFieldValue: '+Master.FieldByName('id').AsString + ' DetailFieldValue: ' + Detail.FieldByName('id').AsString);
Detail is not Refresh, when Master receives new value of MasterFields.
I do not have such problems at v 5.80.0.43.