Loop and counting

[thi36]

I am in process of writing a report that collects data from six different fields and then count how many times the data gets repeated in each field. I think I need to use ARRAY and possible loop but not sure how it works. I want to report on the number of count records across the six fields.

The following is an example of the data that i am trying to read. The data is coming from sales orders.

Fld 1 Fld 2 Fld 3 Fld 4 Fld 5 Fld 6
1A 1A 2A 3A 4A 1A
00 00 1A ZZ
1C 1A 1B 1D 4S 3B

I have been using crystal from early this year and still not the knowledge of arrays.

 

[rangersmom]

Crystal's got some great documents including the following:

http://support.crystaldecisions.com/communityCS/TechnicalPapers/cr_arrays.pdf.asp

Go to that link and download the file.
It will probably help get you understand arrays & CR better.

I belive you are correct in determining the need to create a looping formula. I'd suggest a For loop.

Annie Mayes
Crystal Reports Trainer

http://www.crystaluser.com

 

[Ngolem]

give us the report look from the sample data you gave...it isn't clear what you are looking for

Jim Broadbent

 

[JJB81]

Question:
I am using this code below. I need to add another array because I exceed the 1000 limit with data I am pulling from my database. Can anyone help me on this?

Setup array formula:
WhilePrintingRecords ;
global numbervar seat_array_position := 0;
global stringvar array out_list := ["", ""];
redim out_list[1000];

stringvar array times:=split({TK_ODET_2003_SB_ASSOC.E_SBLS}," "
numbervar loops:=ubound(times);
numbervar i;

global numbervar seat_array_position ;

global stringvar array out_list ;

for i:= 1 to loops do(
seat_array_position := seat_array_position + 1 ;

stringvar chnge:=times ;//3:308:1:18,6
stringvar end:= mid(chnge,instrrev(chnge,":&quot+1);
stringvar back:=right(end,len(end)-instr(end,",&quot) ;
if instr(end,",&quot-1 >= 0 then
stringvar front:=left(end,instr(end,",&quot-1 )
else front := "" ;//drops certain values, need to look at this...
stringvar begin:=left(chnge,instrrev(chnge,":&quot);

out_list[seat_array_position]:= begin&back&"-"&front;
);
// following line needed to avoid having formula return an array as an result (not allowed syntax)
""

I have three other formulas that display my out put:
out put 1 formula:
whileprintingrecords ;
global stringvar array out_list ;
local numbervar seat_counter ;
local numbervar seat_counter_start := 1 ;
local numbervar seat_counter_end := 15 ;
local stringvar array sub_seat_set := ["",""] ;
redim sub_seat_set [15] ;

for seat_counter := seat_counter_start to seat_counter_end do
sub_seat_set [seat_counter] := out_list [seat_counter] ;

join ( sub_seat_set , " &quot

out put 2 formula:
whileprintingrecords ;
global stringvar array out_list ;
local numbervar seat_counter ;
local numbervar seat_counter_start := 16 ;
local numbervar seat_counter_end := 30 ;
local stringvar array sub_seat_set := ["",""] ;
redim sub_seat_set [15] ;

for seat_counter := seat_counter_start to seat_counter_end do
sub_seat_set [seat_counter - 15] := out_list [seat_counter] ;

join ( sub_seat_set , " &quot

How can i add to my array and my formulas to include 1000 or 2000 more spaces in my arrays???