为什么只执行了i等于0

[买买提子]

    i := 0;
    while i<=cbbEmpid.Items.count  do
    begin
//    for i:= 0 to cbbEmpid.Items.count - 1 do
      while DateStart <= DateStop do
      begin
        qr1.Close;
        qr1.SQL.Text := 'SELECT*FROM hr_ftycal WHERE caldate= :M_rq AND Emp_ShortID= :M_empid';
        qr1.Params.ParamByName('M_rq').AsDate := DateStart;
        qr1.Params.ParamByName('M_empid').AsString := cbbEmpid.Items[i];
        qr1.Open;
        if qr1.Eof then
        begin
          qrCRUD.Close;
          qrCRUD.SQL.Text := 'INSERT hr_ftycal(Caldate,Emp_ShortID,Emp_Name,Dep_ID,Dep_Name,RecCD,RecCU,Pk_ID,Pk_Corp) '+
            'SELECT :M_caldate,Emp_ShortID,Emp_Name,Dep_ID,Dep_Name,now(),:M_RecCU,:M_Pk_ID,:M_Pk_Corp FROM `vs_hr_ppl_juris_rela`' +
            'WHERE Emp_ShortID= :M_empid ';
          qrCRUD.Params.ParamByName('M_caldate').AsString := DateToStr(DateStart);
          qrCRUD.Params.ParamByName('M_empid').AsString := cbbEmpid.Items[i];
          qrCRUD.params.ParamByName('M_RecCU').AsString := ykinfo.Ykmc_c;
          qrCRUD.Params.ParamByName('M_Pk_ID').AsString := GetOsRandom;
          qrCRUD.params.ParamByName('M_PK_corp').AsString := RwInfo.Pk_Corp;
          qrCRUD.ExecSQL;
        end;
        DateStart:=DateStart+1;
      end;
      i:= i+1;
    end;

[满面尘，鬓如霜，何处话凄凉]

cbbEmpid.Items.count=0 ?????????????

[买买提子]

知道为什么了，外层循环中DateStart忘了重新赋值！！