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