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

Тема в разделе "Delphi - Базы данных", создана пользователем Каджит, 10 июл 2013.

  1. Каджит

    Каджит New Member

    Регистрация:
    10 июл 2013
    Сообщения:
    1
    Симпатии:
    0
    Здравствуйте я заполняю таблицу данными из бд через запрос

    Код (Text):
     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 посещения. Как сделать так что если всего два посещения то остальные два поля были пустыми?
     

    Вложения:

Загрузка...

Поделиться этой страницей