안녕하세요 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 ------------①
파일도 함께 첨가 했습니다.
도움 부탁합니다.
요렇게 해 보시면....
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;