BUG: Grid Shows Only Two Added Records When Buffering/Order Set (194573)

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code from a program (.PRG) file:

         CREATE TABLE junk (f1 c(8))
         INDEX ON f1 TAG f1
         SET MULTILOCKS ON
         =CURSORSETPROP('buff', 5)   && anything > 1
   
         PUBLIC oform
         oform = CREATEOBJECT('form1')
         oform.SHOW()
   
         DEFINE CLASS form1 AS FORM
            AUTOCENTER = .T.
            HEIGHT = 315
            WIDTH = 415
            CAPTION = "Form1"
   
            ADD OBJECT grid1 AS GRID WITH ;
               LEFT = 26, ;
               RECORDSOURCE = "junk", ;
               RECORDSOURCETYPE = 1, ;
               TOP = 19
   
            ADD OBJECT command1 AS COMMANDBUTTON WITH ;
               TOP = 252, ;
               LEFT = 156, ;
               HEIGHT = 27, ;
               WIDTH = 84, ;
               CAPTION = "Add Record"
   
            PROCEDURE UNLOAD
               =TABLEREVERT(.T.)
               USE IN junk
            ENDPROC
   
            PROCEDURE command1.CLICK
               INSERT INTO junk VALUES (SYS(3))
   
               * The following GO BOTTOM command will cause the records
               *    to appear
               * GO BOTTOM
   
               * Setting the value of the  grid ScrollBars property to itself
               *    will also cause the records to appear
               * THISFORM.grid1.SCROLLBARS = THISFORM.grid1.SCROLLBARS
               THISFORM.REFRESH()
            ENDPROC
   
         ENDDEFINE
   							

2. Click the Add Record button several times.
   
   The first two added records show, the third and subsequent records do not. Clicking in the grid to place the focus in the grid will allow all the records to be displayed.
   
   To demonstrate the workaround, you may uncomment either the GO BOTTOM command or the ThisForm.Grid1.scrollbars = ThisForm.Grid1.scrollbars command. This will cause all the records to be displayed.