Q&A

  • 퀵레포트 문제 입니다. 좀 도와 주십시오.
qSabun.First;
While not qSabun.Eof do
begin
      qPay.ParamByName('pSabun').AsString := qSabunSabun.Value;
      qPay.Active := True;
      qPay.first;
      While not qPay.EOF do
      begin
            QrMonPay1.Caption := qPayMonPay1.Value;
            QrMonPay12.Caption := qPayMonPay12.Value;
            qPay.Next;
      end;
      qSabun.Next;
end;

QuickRep1.Preview ;

QuickRep1.Dataset은 qSabun으로 했습니다.

위에서처럼,
사번테이블의 사원 전부(qSabun)를 루프를 돌면서 읽어다가,
개인별 급여(qPay)를 찍으려
하는데, 위의 소스를 QrDetailBand의 BeforePrint이벤트에 코딩을 했는데,
항상 마지막 레코드만 나오네요.
이틀짼데, 휴~~ 아직 영~~~ 좀 도와주십시오..
이중루프를 돌리다 보니, 발생한 문제 같은뎅....
1  COMMENTS
  • Profile
    성더기 2004.01.10 22:39
    QuickRep1.Dataset을 qSabun으로 했으면
          qPay.ParamByName('pSabun').AsString := qSabunSabun.Value;
          qPay.Active := True;
          qPay.first;
          While not qPay.EOF do
          begin
                QrMonPay1.Caption := qPayMonPay1.Value;
                QrMonPay12.Caption := qPayMonPay12.Value;
                qPay.Next;
          end;
    이렇게만 해도 될거 같습니다