запись значений одного поля в несколько полей

[King_Of_Arthur]

Есть таблица посещения:
Наименование Дата1 Дата2 Дата3 Дата4
Нужно заполнить ее данными из БД например если за год было 4 посещения то все поля даты заполнены, а если например за год было только 2 посешения то должны быть заполнены Дата1 Дата2 а остальлные поля пустые, если более 4 то только первые 4.
Я так сделала запрос

  Query7.SQL.Clear;
  Query7.SQL.Text:='select nisl,dv from N_ISL inner join Issp on n_isl.isl=issp.isl where uid='+
                   MTable1.FieldByName('uid').AsString+' and pri=5'+'and isl=1008'+
                   'order by dv';
  Query7.Open;
  while not Query7.Eof do begin
    if Query7.FieldByName('dv').AsDateTime<>0 then begin
      Table7.Edit;
      Table7.Append;
      Table7.FieldByName('Naim').AsString:=Query7.FieldByName('nisl').AsString;
      Table7.FieldByName('Date1').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
   Table7.FieldByName('Date2').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Table7.FieldByName('Date3').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Table7.FieldByName('Date4').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Table7.Post;
    end;
    Query7.Next;
  end;

но он заполняет все 4 стоки одной датой.

[Yurk@]

вполне логично, для всех 4х дат стоит один и тот же

:= Query7.FieldByName('dv').AsDateTime;

Есть таблица посещения:
Наименование Дата1 Дата2 Дата3 Дата4

а можно еще увидеть таблицу откуда берутся данные?

[King_Of_Arthur]

Данные берутся из бд

ну вот тут только два посещения мне нужно их записать в таблицу

[Аватар]

0. Очередная запись из Query7
1. Ищем запись в Table7 по ключевому полю
2. Запись не найдена - добавляем
3. поле Date1=NULL - пишем в Date1 и на 0
4. поле Date2=NULL - пишем в Date2 и на 0
5. поле Date3=NULL - пишем в Date3 и на 0
6. поле Date4=NULL - пишем в Date4 и на 0
7. ни куда не пишем и на 0

[King_Of_Arthur]

эх попроше бы для тупых