Создание 3 базы из 2-х

[bosston]

Привет Всем!
есть такая задача. 1-я база (Table_osnova), 2-я (Table_famili). они связаны по индексу id_klient. на 1-ю базу накладываю фильтр и из 2-й выбираю записи удовлетворяющие условию. вот этот момент никак не могу сделать.
код процедуры:

var ab_nomer: String;
n: Integer;
ab_dolg: String;
ab_gos: String;
begin
Table_osnova.Filtered:= False;
Table_osnova.Filter:= 'Data_isp_pro>'''+'01.01.2001'+'''' +' and ' +'Date_zakr_ab<'''+'01.01.2001'+''' ';
//'Data_isp_pro<''';
Table_osnova.Filtered:= True;
Table_otvet.Close;
Table_otvet.Active:= False;
Table_otvet.Exclusive:= True;
Table_otvet.EmptyTable;
Table_otvet.Active:= True;
// Table_osnova.First;
While not Table_osnova.Eof do begin
ab_nomer:= Table_osnova.FieldByName('Id_klient ').AsString;
ab_dolg:= Table_osnova.FieldByName('Summa_dol g_isk').AsString;
ab_gos:= Table_osnova.FieldByName('Summa_gos ').AsString;
spisok_ab:= '';
Table_famili.First;
for n:= 1 to Table_famili.RecordCount do begin
if Table_famili.FieldByName('Otvetcik' ).AsString = 'Да' Then
begin
fio_ab:= Table_famili.FieldByName('Family'). AsString;
name_ab:= Table_famili.FieldByName('Name').As String;
otc_ab:= Table_famili.FieldByName('Otcestvo' ).AsString;
spisok_ab:=spisok_ab+Trim(fio_ab)+' '+Trim(name_ab)+' '+Trim(otc_ab);
end;
if n < Table_famili.RecordCount Then
spisok_ab:= spisok_ab + ', ';
Table_famili.Next;
end;
Table_osnova.Next;
Table_otvet.Edit;
Table_otvet.Append;
Table_otvet.FieldByName('Id_klient' ).AsString:=ab_nomer;
Table_otvet.FieldByName('Spisok_FIO ').AsString:=spisok_ab;
Table_otvet.Post;
// Table_otvet.Close;
end;
Table_podpis.Filtered:= False;
Table_podpis.Filter:= 'Kod=3';
Table_podpis.Filtered:= True;
ZAYAVA.ShowReport;
//Table_osnova.Filtered:= False;
Table_otvet.Active:= False;
Table_otvet.Exclusive:= False;

перед записью в 3-ю базу, ее надо очистить.
3-я база - Table_otvet

[soleil@mmc]

не очень понятно - что же не можешь сделать?
тебе в отчет нужно вывести одну большую строчку, слепленную из всех ФИО соответствующих условию отбора?

кстати, вот этот код тяжелый

Table_famili.RecordCount

лучше цикл запускать так

while not(Table_famili.EOF) do begin
....
Table_famili.Next;
end;

[bosston]

1. не проходит цикл во второй базе. не создаются строки
2. при запуске из оболочки дельфи не освобождается таблица списка.

[bosston]

все заработало, была моя шибка при начале работы, неправильно указал базу основную.
теперь остался 2-й вопрос.

[soleil@mmc]

а где в коде хотя бы намек на то, что ты собираешься ее ("таблицу списка") "освободить"?

[bosston]

Table_otvet.Close;
Table_otvet.Active:= False;
Table_otvet.Exclusive:= True;
Table_otvet.EmptyTable;
Table_otvet.Active:= True;

ругается на

Table_otvet.EmptyTable;

говорит таблица занята. Кагда запускается экзешник, такого нет.

[soleil@mmc]

Note

Deletion of records can fail if the user lacks sufficient privileges to perform the delete operation.

А как у тебя с правами на удаление данных?

[bosston]

все по умолчанию, я ничего не менял

[soleil@mmc]

чота мне кажется, что первая строчка этого кода лишняя

Table_otvet.Edit;
Table_otvet.Append;

[bosston]

здесь все работает, мне надо очистить эту таблицу, перед тем как туда добавлять записи. т.е. она формируется заново, когда нажимаем кнопку сформировать