【结帖】TFECalendar控件问题**

shangxy

DataSetPB这个循环里面的执行了么？
    while not DataSetPB.Eof do
  begin
    if ((DataSetPB.FieldByName('ZBAPB_ZBRY').AsString<>nil) and (DataSetPB.FieldByName('ZBAPB_ZBRY').AsString<>'')) then
     Result := Result+ #13#10 +OrgSys.OrgSystem.GetPerson(DataSetPB.FieldByName('ZBAPB_ZBRY').AsString).DisplayName;
   if ((DataSetPB.FieldByName('ZBAPB_ZBRY').AsString=nil) or (DataSetPB.FieldByName('ZBAPB_ZBRY').AsString='')) then
     Result := Result+ #13#10 +DataSetPB.FieldByName('ZBAPB_ZBRY').AsString;
    DataSetPB.Next;
  end;
在这个前面加一个：
DataSetPB.First；
看看呢

huixiangtao

果然DataSetPB.First；加上这句话就行了，我太不小心了！呵呵
如果没有这句话，它默认的是从这个数据集的第几个开始呢，为什么会出现，我更换了哪一天的值班安排，这一天的值班人就不在下面显示呢？

shangxy

好像是第一次是从第一个记录开始的，然后开始滚动到最后面的，然后在次执行到这里的时候就已经是最后的了所以循环里面的没有执行到。

huixiangtao

哦，知道了，多谢！结贴把！