【结贴】代码运行不往下执行，奇异!

江振辉

IQuery := TQuery.Create(nil);
   try

    IQuery.ConnectionString := 'DATABASEURL=Biz:\CBSGLXT\rxc_zd.Database';
    IQuery.CommandText := '';
    IQuery.CommandText := 'select HJ,approver,approvalTime from T_PROAPPROVAL_INFO where projectId = ''' + lProjectId +'''';
    IQuery.Open;
    if IQuery.RecordCount > 0 then
       begin
          IQuery.First;
          for i:=0 to Iquery.RecordCount -1 do
          begin
             lHJ := IQuery.FieldByName('approver').AsString;
             lApprovalTime := IQuery.FieldByName('approvalTime').AsString;
             lApprover := IQuery.FieldByName('HJ').AsString;  


//到这儿就不往下执行了,而是又返回到了lHJ := IQuery.FieldByName('approver').AsString;
这句，直到循环结束。


             if lHJ = '项目提出部门' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('XMTCFZR').AsString := lApprover;
                  DataSet.FieldByName('XMTCSJ').AsString := lApprovalTime;
                end;
             if lHJ = '生产技术部' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('SCJSBFZR').AsString := lApprover;
                  DataSet.FieldByName('SCJSBSJ').AsString := lApprovalTime;
                end;
             if lHJ = '经营管理部' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('JGR').AsString := lApprover;
                  DataSet.FieldByName('JGSJ').AsString := lApprovalTime;
                end;
             if lHJ = '财务产权部' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('CQR').AsString := lApprover;
                  DataSet.FieldByName('CQSJ').AsString := lApprovalTime;
                end;
             if lHJ = '总工程师' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('ZG').AsString := lApprover;
                  DataSet.FieldByName('ZGSJ').AsString := lApprovalTime;
                end;
             if lHJ = '生产副总经理' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('SCFZ').AsString := lApprover;
                  DataSet.FieldByName('SCFZSJ').AsString := lApprovalTime;
                end;
             if lHJ = '经营副总经理' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('JYFZ').AsString := lApprover;
                  DataSet.FieldByName('JYFZSJ').AsString := lApprovalTime;
                end;
             if lHJ = '总经理' then
                begin
                  DataSet.Edit;
                  DataSet.FieldByName('ZJL').AsString := lApprover;
                  DataSet.FieldByName('ZJLSJ').AsString := lApprovalTime;
                end;
             IQuery.Next
          end;
       end;
   finally
    IQuery.Close;
    IQuery.Free;
  end;

shangxy

if lHJ = '项目提出部门' then
类似这些条件都不满足吧

江振辉

呵呵，是的，因为我搞错了一个字段对应关系！谢谢！