Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.07.2013, 07:33   #1
King_Of_Arthur
Пользователь
 
Регистрация: 17.05.2013
Сообщений: 43
Вопрос Заполнение таблицы

Здравствуйте я заполняю таблицу данными из бд через запрос
Код:
  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 посещения. Как сделать так что если всего два посещения то остальные два поля были пустыми?
Изображения
Тип файла: jpg Безымянный.JPG (4.8 Кб, 76 просмотров)
King_Of_Arthur вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
заполнение таблицы beginner09 Microsoft Office Access 4 09.05.2013 12:10
Макрос: заполнение таблицы данными из другой таблицы с автоматическим добавлением строк yevgeniy.demidov Microsoft Office Excel 6 06.09.2012 15:27
Заполнение таблицы Lunozwetka БД в Delphi 2 16.06.2011 18:43
Заполнение таблицы arkvid Microsoft Office Excel 10 17.11.2010 18:32
заполнение таблицы Andreyka Общие вопросы Delphi 6 07.02.2009 22:18