Random Thread 1

[scott1971]

thread767-1493843

I tried this and I'm getting a message at the RND statement that the ) is missing. Probably something very, very simple but it's been so long since I even opened crystal that I've forgotten more than I ever knew I think!!!

WhilePrintingRecords;
Numbervar Array array1;
Redim array1 [100];

Local NumberVar i;
For i := 1 to 100
Step 1
Do(array1 := 1+Truncate RND()*Count({Claims_View.Form_Number})))

 

[midearth]

You're missing a ( between truncate and RND. Should be:

WhilePrintingRecords;
Numbervar Array array1;
Redim array1 [100];

Local NumberVar i;
For i := 1 to 100
Step 1
Do(array1 := 1+Truncate(RND()*Count({Claims_View.Form_Number})))