доступ к данным подчиненной таблицы
вопрос такой:
есть две связанные таблицы ADOTable1 и ADOTable2,а также ADODataSet1...
ADOTable1-главная,ADOTable2-подчиненная....
доступ к определенному полю ADOTable1 осуществляется так
AdoDataSet1.RecNo:=n;
edit1.text:=AdoDataSet1.FieldByName('наименование').value;
а как скажите пожалуйста как точно так же получить доступ
к определенному полю в подчиненной таблице?
Заранее спасибо всем ответившим
есть две связанные таблицы ADOTable1 и ADOTable2,а также ADODataSet1...
ADOTable1-главная,ADOTable2-подчиненная....
доступ к определенному полю ADOTable1 осуществляется так
AdoDataSet1.RecNo:=n;
edit1.text:=AdoDataSet1.FieldByName('наименование').value;
а как скажите пожалуйста как точно так же получить доступ
к определенному полю в подчиненной таблице?
Заранее спасибо всем ответившим
Наверное мой ответ вам не поможет, но все же, по-моему при работе со связкой "главный-подчиненый" намного удобнее использовать Query (в вашем случае TADOQuery). Если все же предпочитаете работать с Table, то можно немножко поподробней, в чем собственно трудность. Доступ к подчиненной таблице будет осуществляться аналогично, с помощью Locate или подобной функции определяете нужную вам запись и получаете значения ее полей.
суть задачи заключалась в Memo вывести запись поля ADOTable1 и соответствующие ей подчиненные записи из ADOTable2
сделал так
procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
for i:=1 to DataModule2.ADOTable1.RecordCount do
begin
DataModule2.ADOTable1.RecNo:=i;
Memo1.Lines.Add('Организация: '+DataModule2.ADOTable1.fieldbyname('Наименование' ).value);
for j:=1 to DataModule2.ADOTable2.RecordCount do
begin
DataModule2.ADOTable2.RecNo:=j;
Memo1.Lines.Add('ИНН: '+DataModule2.ADOTable2.fieldbyname('ИНН').Value);
end;
end;
end;
благодарю за помощь
сделал так
procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
for i:=1 to DataModule2.ADOTable1.RecordCount do
begin
DataModule2.ADOTable1.RecNo:=i;
Memo1.Lines.Add('Организация: '+DataModule2.ADOTable1.fieldbyname('Наименование' ).value);
for j:=1 to DataModule2.ADOTable2.RecordCount do
begin
DataModule2.ADOTable2.RecNo:=j;
Memo1.Lines.Add('ИНН: '+DataModule2.ADOTable2.fieldbyname('ИНН').Value);
end;
end;
end;
благодарю за помощь