|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите организовать поиск
Люди помогите организовать поиск.
Есть две таблицы (*.dbf). Нужно организовать поиск значений из поля первой таблицы по полю во второй. Если значение найдено то нужно его присвоить другому полю первой таблицы и так пока первая таблица не кончиться. Я в программировании пока чайник меня хватило только на: table1.active:=true; table1.first; while not table1.Eof do begin a:=table1.fieldbyname ('Поле1').asstring; а дальше как, помогите пожалуйста. |
#2
|
||||
|
||||
Код:
Tabel1.Open; Table2.Open; while not Table1.Eof do begin if Table2.Locate('Pole1',Table1.FieldsByName('Pole1').asString,[])=True then begin Table1.Edit; Table1.FieldsByName('Pole2').asString:=Table2.FieldsByName('Pole1').asString; Table1.Post; end; Table1.Next; end; Table1.Close; Table2.Close; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
|||
|
|||
Спасибо все заработало
|