помогите разобратся !!!
Всем здравствуйте ! имеются 2 таблицы, я в циклах хочу чтобы по названию например товара во второй таблице например прихода перебирало все записи и если название совпадают, то то суммировало данные из поля количество.....
var
// объявление переменной для назв товара
nazv: string;
//объявление переменных для прихода
p_kol_vo: integer;
begin
DataModule1.ADOTablePrihod.First;
DataModule1.ADOTableTovars.First;
p_kol_vo := 0;
while not DataModule1.ADOTableTovars.Eof do
begin
nazv := DataModule1.ADOTableTovars.FieldByName('tovars_naz v_id').AsString;
while not DataModule1.ADOTablePrihod.Eof do
begin
if DataModule1.ADOTablePrihod.FieldByName('prihod_tov ar').AsString = nazv
then
p_kol_vo := p_kol_vo +DataModule1.ADOTablePrihod.FieldByName('prihod_ko l-vo').AsInteger;
//end; // while
DataModule1.ADOTableTovars.Next;
end; // while
DataModule1.ADOTableTovars.Append;
DataModule1.ADOTableTovars.FieldByName('tovars_pri hod_kol-vo').Value :=
p_kol_vo;
DataModule1.ADOTableTovars.Post;
end;
При попытке запуска кода - всё виснет.... не понимаю почему.....
|