Заполнение Таблицы

10.07.2013
1
0
#1
Здравствуйте я заполняю таблицу данными из бд через запрос

Код:
 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;
Table7.Edit;
Table7.Append;
Table7.FieldByName('Naim').AsString:=Query7.FieldByName('nisl').AsString;
if Query7.FieldByName('dv').AsDateTime<>0 then
Table7.FieldByName('Date1').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
Query7.Next;
if Query7.FieldByName('dv').AsDateTime<>0 then
Table7.FieldByName('Date2').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
Query7.Next;
if Query7.FieldByName('dv').AsDateTime<>0 then
Table7.FieldByName('Date3').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
Query7.Next;
if Query7.FieldByName('dv').AsDateTime<>0 then
Table7.FieldByName('Date4').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
Query7.Next;
Table7.Post;
Таблица посещений. Когда выполняется программа по человеку у которого было всего 2 посещения таблица заполняется как на рисунке. В первые два поля заполняются два посещения этого человека а два последних поля заполняются датами 2 посещения. Как сделать так что если всего два посещения то остальные два поля были пустыми?
 

Вложения