DA = "ONE":@FM:"TWO":@FM:"THREE":@FM:"FOUR":@FM:"FIVE" N = DCOUNT(DA, @FM) FOR I = N TO 2 STEP -1 J = INT(RND(I)) + 1 TEMP = FIELD(DA, @FM, I) DA = FIELDSTORE(DA, @FM, I, 1, FIELD(DA, @FM, J)) DA = FIELDSTORE(DA, @FM, J, 1, TEMP) NEXT I $debug
Comments
DA = "ONE":@FM:"TWO":@FM:"THREE":@FM:"FOUR":@FM:"FIVE" N = DCOUNT(DA, @FM) FOR I = N TO 2 STEP -1 J = INT(RND(I)) + 1 TEMP = FIELD(DA, @FM, I) DA = FIELDSTORE(DA, @FM, I, 1, FIELD(DA, @FM, J)) DA = FIELDSTORE(DA, @FM, J, 1, TEMP) NEXT I $debug