PRB: Grid Column's CurrentControl Reverts to Text1 Default

MORE INFORMATION

Steps to Reproduce Behavior

1. Issue the following commands:

      CREATE TABLE Testdbf (id N(1), region C(10))
      INSERT INTO Testdbf VALUES (0, "North")
      INSERT INTO Testdbf VALUES (1, "South")
      INSERT INTO Testdbf VALUES (0, "North")
      INSERT INTO Testdbf VALUES (1, "South")
   						

2. Create a form named Test.
3. Add the Testdbf table to the Test form's Data Environment.
4. Drag the Testdbf table to the form. A grid is added to the form.
5. Set the following PEMs (properties, events, and methods) for the grid:

      .ColumnCount = 2
      .RecordSource = "testcursor"
   						

6. Select Grid1.Column1 in the Properties window.
7. Click the check box tool on the toolbar. On the grid, Check1 should appear under Grid1.Column1 in the Properties window.
8. Change the Grid1.Column1.CurrentControl property to Check1.
9. Add a text box to the form.
10. Add a command button to the form, and set the following PEMs:

        .Caption = "SQL"
        .Click
           SELECT * FROM Testdbf ;
              WHERE region = ALLTRIM(thisform.text1.value) ;
              INTO CURSOR testcursor
           THISFORM.Grid1.RecordSource = "testcursor"
           THISFORM.Grid1.SetFocus
    						

11. In the Form1.Load event, add this line of code:

        SELECT * FROM Testdbf WHERE region = "North" ;
           INTO CURSOR testcursor
    						

12. Save and run form. The grid is populated with "North" records only, and Grid1.Column1 displays a check box.
13. Type South in the text box.
14. Click the SQL button.
15. Widen the ID column. The grid is populated with the "South" records only, and Grid1.Column1 no longer displays a check box control. It now displays the default control, which is a text box with a value of 1 for both records.

Example Workaround

1. Modify the Test form.
2. In the Command1.Click event, add the following statement prior to executing the SQL SELECT command:

         THISFORM.Grid1.RecordSource = ""
   						

   For example:

         THISFORM.Grid1.RecordSource = ""
         SELECT * FROM Testdbf ;
            WHERE region = ALLTRIM(thisform.text1.value) ;
            INTO CURSOR testcursor
         THISFORM.Grid1.RecordSource = "testcursor"
         THISFORM.Grid1.SetFocus
   						

3. Type the CLEAR ALL command in the Command window.
4. Save and run the form.
5. Type South in the text box.
6. Click the SQL button. Now the grid is populated with the "South" records only, and Grid1.Column1 redisplays the check box control.