ClientDataSet Grouping

[Henry Olive 5]

Good Day,

 

Delphi 10.4

 

I created a grouping on ITEMNO and it's OnGetText event i wrote below code

procedure TBomKitSubkit.CDS1ITEMNOGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
 if gbFirst in CDS1.GetGroupState (1) then
    Text := Sender.AsString else
    Text := '';
end;

everthing works well.

My Query result looks like below in a DBgrid

ITEMNO..SUBITEMNO..QTY

AA1...........XX1.......................1

               XX2.......................2

               XX3.......................1

AA2..........XX4.......................3

 

Is it possible get the result like below, (First SUBITEMNO not just right of of ITEMNO but 1 line bottom)

ITEMNO..SUBITEMNO..QTY

AA1

                  XX1...................1

                 XX2....................2

                 XX3....................1

AA2

              XX4.......................3

 

Thank You