Q&A

  • [문의]DB문의 pas까지 첨가 해서 다시 올립니다.
안녕하세요 Delphi 초보자 입니다.

다름이 아니라 TPrinter를 이용해서

결과값이


                                  출력------------------------ ①
성명  학년  나이
A       1       20
A       1       21
A       1       22
A       1       23
A       1       24
B       1       20
B       1       21
B       1       22
B       1       23

지금 현재 이렇게 출력이 됩니다.

그런데

                      출력------------------------  ②
          
성명  학년  나이
A       1       20
         1       21
         1       22
         1       23
         1       24
B       1       20
         1       21
         1       22
         1       23

이런식으로 출력을 하고 싶은데 어떻게 해야 합니까

출력 ①의 결과 입니다. 어떻게 해야 합니까
select  a.성명, a,학년, b.나이 from 기본 a, 정보 b where a.ID=b.ID    ------------①


파일도 함께 첨가 했습니다.

도움 부탁합니다.
1  COMMENTS
  • Profile
    오익환 2003.10.08 04:14
    File을 dpr만 올리 셨네..

    요렇게 해 보시면....

    lNAME:='';
    With Printer.Canvas,Query1 do
      begin
       While NOT EOF do
         begin
           if FieldByName('성명').AsString<>lNAME then
             begin
               ....성명찍기...
           end;
           lNAME:=FieldByName('성명').AsString;

           ....나머지찍기...

           NEXT;
       end;
    end;