Relacionamento Master Detail Não Funciona
Relacionamento Master Detail não funciona
Tenho duas querys
- qCriticanf onde o campo relacional é CtrNfi
- qCriticaCtrlNf onde o campo relacional é CriNfi
abro as querys da seguinte maneira:
1º query:
procedure Abre_qCriticanf(Ordem: string = 'CtrTip,CtrCod,CtrNfi,CtrSer');
begin
with DMArqSce.qCriticaNf do
begin
Close;
SQL.Clear;
Sql.Add('Select * From Critica Order By ' + Ordem);
ExecSQL;
Open;
end;
end;
2ª query:
procedure Abre_qCriticaCtrlNf(Ordem: string = 'CriNfi,CriSer,CriNum');
begin
with DMArqSce.qCriticaCtrlNf do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem );
Open;
end;
end;
na segunda query (qCriticaCtrlNf) na propriedade Master source informo "dsCriticaNf" que é o DataSource da 1ª queri (qCriticaNf), mas quando acesso o form onde tem dois dbgrid (dsCriticaNF e dsCriticaCtrlNf) o relacionamento não acontece.
no segundo dbgrid, fica em branco. se eu tirar o relacionamento: Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem ); para Sql.Add('SELECT * FROM CriticaCtrl Order By ' + Ordem ); aparece os dados, só que não relacionados.
o que eu poderia estar fazendo errado, pois pesquisei no forum e os exemplos são similares a este que eu fiz. Obs. utilizo o Delphi 7.0 e Firebird 2.0.
Att.: João Hintz
Tenho duas querys
- qCriticanf onde o campo relacional é CtrNfi
- qCriticaCtrlNf onde o campo relacional é CriNfi
abro as querys da seguinte maneira:
1º query:
procedure Abre_qCriticanf(Ordem: string = 'CtrTip,CtrCod,CtrNfi,CtrSer');
begin
with DMArqSce.qCriticaNf do
begin
Close;
SQL.Clear;
Sql.Add('Select * From Critica Order By ' + Ordem);
ExecSQL;
Open;
end;
end;
2ª query:
procedure Abre_qCriticaCtrlNf(Ordem: string = 'CriNfi,CriSer,CriNum');
begin
with DMArqSce.qCriticaCtrlNf do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem );
Open;
end;
end;
na segunda query (qCriticaCtrlNf) na propriedade Master source informo "dsCriticaNf" que é o DataSource da 1ª queri (qCriticaNf), mas quando acesso o form onde tem dois dbgrid (dsCriticaNF e dsCriticaCtrlNf) o relacionamento não acontece.
no segundo dbgrid, fica em branco. se eu tirar o relacionamento: Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem ); para Sql.Add('SELECT * FROM CriticaCtrl Order By ' + Ordem ); aparece os dados, só que não relacionados.
o que eu poderia estar fazendo errado, pois pesquisei no forum e os exemplos são similares a este que eu fiz. Obs. utilizo o Delphi 7.0 e Firebird 2.0.
Att.: João Hintz
João Hintz
Curtidas 0