Hi Abhilash,
Here's what I've got for my formulas:
GH1
WhilePrintingRecords;
StringVar tin := "";
GH2
WhilePrintingRecords;
StringVar Array brr := "";
NumberVar h := 0;
NumberVar k := 0;
Details
WhilePrintingRecords;
StringVar Array brr;
NumberVar h;
If Not({TABLE.CHILDNAME} in brr) then
(
h := h+1;
redim preserve brr [h];
brr[h] := {TABLE.CHILDNAME};
);
brr[h]
GF2
WhilePrintingRecords;
StringVar Array brr;
StringVar tin;
NumberVar k;
For k := To Unbound(brr) Do
tin := tin + brr[k] + ", ";
Left(tin, len(tin)-2;