How to Store the Value of Check Boxes in a Grid to an Array

MORE INFORMATION

Step-by-Step Procedure

1. Create a form and add a table to the data environment. Place a grid on the form.
2. Right-click the grid, and then click Builder. Add two fields to the grid.
3. On the Properties sheet, add 1 to the ColumnCount of the grid. This makes the ColumnCount property equal to 3. While in the Properties sheet, select the Text1 object from the third column. Click the form title bar to allow the focus to stay on the Text1 object. Then press the DELETE key to delete the Text1 object from the grid.
4. While the grid is still in edit mode, choose a check box object from the Forms Control toolbar and place it under the third column header where the Text1 object was just deleted. The check box should now be part of the grid.
5. In the Properties sheet, choose the third Column object and change the Bound and Sparse properties to False (.F.).
6. On the Form menu, click New Property. Type xyz(1) in the property box, and save it.
7. In the Load event of the form, place this code:

      DIMENSION thisform.xyz(RECCOUNT())
      FOR x = 1 TO RECCOUNT()
          thisform.xyz(x) = 0
      ENDFOR
   						

   This dimensions the array xyz to the number of records in the open table. The FOR loop initializes the elements of the array, which clears the value of the check boxes so that they are not checked.
8. Set the ControlSource for the check box to thisform.xyz(RECNO()). This places a 1 or 0 in the array element that relates to that particular record.
9. To check that this works correctly, place the command WAIT WINDOW STR(thisform.xyz(RECNO())) in the Valid clause of the check box. Every time the check box is selected or cleared, the value of 0 (unchecked) or 1 (checked) appears in the wait window.

   counter=0
   FOR x = 1 TO RECCOUNT()
         IF thisform.xyz(x) = 1
            counter = counter + 1
        ENDIF
   ENDFOR
   WAIT WINDOW STR(counter)