FIX: TABLEREVERT() with Table Buffering Results in Page Fault

MORE INFORMATION

Steps to Reproduce Behavior

1. Use the following code to create two related tables:

         SET MULTILOCKS ON
         IF !FILE('test.dbc')
            CREATE DATABASE test
            CREATE TABLE test1 (var1 C(10), PRIMARY KEY var1 TAG var1)
           CREATE TABLE test2 (var1 c(10), ;
               FOREIGN KEY var1 TAG var1 REFERENCES test1 TAG var1)
         ENDIF
   							

2. Create a form called test.
3. Select the DataEnvironment and add table test2, then add table test1 OR place the following code in the form's Load event:

         SET MULTILOCKS ON
         USE test2 IN 0
         USE test1 IN 0
         SELECT test1
         SET ORDER TO TAG var1
         SELECT test2
         SET ORDER TO TAG var1
         SET RELATION TO var1 INTO test1
   							

4. In the INIT event of the form, place the following code:

         =CURSORSETPROP('Buffering',5,'test2')
   							

5. Add a grid to the form with the following properties:

         Form.Grid1.ColumnCount=2
         Form.Grid1.RecordSourceType=1
         Form.Grid1.RecordSource='test2'
   
         Form.Grid1.Column1.ControlSource=test1.var1
         Form.Grid1.Column2.ControlSource=test2.var1
   							

6. Add a Command button with the following code in the click event:

         =TABLEREVERT(.T.,'test2')
         CLOSE TABLES ALL
         Release ThisForm
   							

7. Save and run the form.