TMS (TPlanner)

[begibeqa]

with Planner1.CreateItem do
    begin
    fdqry3.active:=false;
    fdqry3.SQL.Text:='SELECT name,lname,phone,childbirth FROM customers';
    fdqry3.active:=true;
      While Not fdqry3.Eof Do
        begin
      ItemStartTime:=fdqry3.FieldByName('childbirth').Value;
      ItemEndTime:=fdqry3.FieldByName('childbirth').Value;
      Text.Add(fdqry3.FieldByName('name').Value+' '+
              +fdqry3.FieldByName('lname').Value+' '+
              +fdqry3.FieldByName('phone').Value);
      CaptionText:='Today:';
      Update;
      fdqry3.Next;
        end;
    end;

здравствуйте...

пытаюсь сохранить отметки на календаре (TPlanner от TMS).
хочу эти отметки расставит по числам каторые извлекаю из базы (childbirth)
и чтоб у каждого приписывался комментарии (name,lname,phone).
но когда запускаю все записи прикрепляются только к одной числе катори в базе находится первым.
как можно упорядочить все это? (опять же извиняюсь за мой русски)...

[phomm]

Смотрю на код и вижу нелогичность. Создание итема выше в коде (по вложенности) чем обход циклом датасета. Т.е. итем создаётся и в нём происходит обход. Больше итемов ничто не создаёт. А цикл обхода получается работает именно с тем итемом. Видите нелогичность ?
По идее должно быть так: В цикле обхода создаётся новый итем, и данные из текущей обрабатываемой строки датасета записываются в него.