WITH THISFORM.DATAENVIRONMENT .ADDOBJECT('CURSOR1','Cursor') .CURSOR1.CURSORSOURCE = CDX_DBF + 'SODETAIL' .CURSOR1.ALIAS = 'CURSOR1' .ADDOBJECT('CURSOR2','Cursor') .Cursor2.CURSORSOURCE = CDX_DBF + 'SOHEAD' .CURSOR2.ALIAS = 'CURSOR2' .ADDOBJECT('CURSOR3','Cursor') .Cursor2.CURSORSOURCE = CDX_DBF + 'ITEMMSTR' .CURSOR2.ALIAS = 'ITEMMSTR' .ADDOBJECT('CURSOR4','Cursor') .Cursor2.CURSORSOURCE = CDX_DBF + 'CUSTOMER' .CURSOR2.ALIAS = 'CUSTOMER' * The following line can be in this WITH/ENDWITH .OPENTABLES() ENDWITH With Thisform.DET_GRD .recordsourcetype = 0 && 1 Alias .recordsource = 'CURSOR1' <strong>.Refresh()</strong> EndWith