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이벤트에 코딩을 했는데,
항상 마지막 레코드만 나오네요.
이틀짼데, 휴~~ 아직 영~~~ 좀 도와주십시오..
이중루프를 돌리다 보니, 발생한 문제 같은뎅....
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;
이렇게만 해도 될거 같습니다