|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите разобратся !!!
Всем здравствуйте ! имеются 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; При попытке запуска кода - всё виснет.... не понимаю почему..... |