FIX: Grid is Empty with Incorrect Column ControlSource

MORE INFORMATION

Steps to Reproduce Behavior

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

         SET SAFETY ON
         USE HOME()+'samples\data\customer'
         LOCAL aobj[1], ox
         CREATE FORM TEMP NOWAIT
         =ASELOBJ(aobj,1)
         ox = aobj[1]
         ox.AddObject('grid1','Grid')
         WITH ox.grid1
            .Recordsource = 'customer'
            .Visible = .T.
            .ColumnCount = 2
            .Column1.ControlSource = 'customer.cust_id'
   
            * Purposely put an invalid column controlsource name
                 .Column2.ControlSource = 'customer.Xcontact'
   
            * To display the Grid correctly set:
            *   .Column2.ControlSource = 'customer.contact'
   
         ENDWITH
         KEYBOARD 'Y' CLEAR
         RELEASE WINDOW 'Form Designer'
         DO FORM temp
   							

2. Form shows up with an empty grid.