Have something wrong in printing grouped detail
hi
I want to make my grouped detail band print the first column value at the
first groupd record
and print space value at other records.
Just like this
aaaaaaaa 111 2222 3333
000 1212 2132
112 2222 2121
bbbbbbb 112 2222 2121
222 3333 5555
I write my code like this
procedure TfmIN31r.FormCreate(Sender: TObject);
begin
inherited;
FBreakNo:= -1;
end;
procedure Tfmrp.ppDBText14GetText(Sender: TObject; var Text: String);
begin
inherited;
if(ppGroup2.BreakNo = FBreakNo)then begin
Text:= '';
end else begin
FBreakNo:= ppGroup2.BreakNo;
end;
end;
But the printout seems incorrect.
The first column is all space.
ps.I don't want to put the first column to the group header
I want to make my grouped detail band print the first column value at the
first groupd record
and print space value at other records.
Just like this
aaaaaaaa 111 2222 3333
000 1212 2132
112 2222 2121
bbbbbbb 112 2222 2121
222 3333 5555
I write my code like this
procedure TfmIN31r.FormCreate(Sender: TObject);
begin
inherited;
FBreakNo:= -1;
end;
procedure Tfmrp.ppDBText14GetText(Sender: TObject; var Text: String);
begin
inherited;
if(ppGroup2.BreakNo = FBreakNo)then begin
Text:= '';
end else begin
FBreakNo:= ppGroup2.BreakNo;
end;
end;
But the printout seems incorrect.
The first column is all space.
ps.I don't want to put the first column to the group header
This discussion has been closed.
Comments
Try setting DBText.SuppressRepeatedValues to True. You can also specify
DBText.ResetGroup. See the online help for DBText SuppressRepeatedValues for
more details.
--
Nard Moseley
Digital Metaphors Corporation
www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com