Local numbervar i;
Local stringVar sno ;
if(OnFirstRecord) then
    (
      for i :=  {?Param2} to {Sno.RollNo}   do
    (    
                sno:= (sno + ToText(i)+ chr(13));         
    );
    sno;
    )
else if(OnLastRecord) then
(
    if({Sno.RollNo}  <  {?Param2}) then
    (
    for i :=   {Sno.RollNo} to {?Param2} do
    (                
                sno:= (sno + ToText(i)+ chr(13));                  
    );
    );
    sno;
)
else
(
    
        if(  ({Sno.RollNo} <> next({Sno.RollNo}))  ) then     
        (  
            if  ((next({Sno.RollNo}) <  {?Param2})) then
           for i := {Sno.RollNo}+1 to  next({Sno.RollNo} )-1 do
           (           
                sno:= (sno + ToText(i)+ chr(13));         
            )
            else
                 for i := {Sno.RollNo}+1 to  {?Param2} do
           (           
                sno:= (sno + ToText(i)+ chr(13));         
            )
                
        );
    sno;    
)

Edited by venkatesha - 09 Jul 2008 at 6:22am