>>I have the following:
>>
>> THISFORM.DATAENVIRONMENT.CLOSETABLES
>> THISFORM.DATAENVIRONMENT.cursor1.CURSORSOURCE = (x)
>> THISFORM.DATAENVIRONMENT.OPENTABLES
>>
>>When it gets to the CursorSource a message is thrown stating:
>>"Property setting will not take effect until dataenvirnment is reloaded." How do I keep this message from displaying?
>>
>>Thanks!
>
>
>Hi Jim,
>where you put this code ?

Sorry, it's in a commandbutton.click. I've got a form that will display the fields in an .FRX. I want to be able to open a different report while in the form. Hoped this would work. Does excepting the message.

x = GETFILE("frx")

IF EMPTY(x)
   RETURN .F.
ENDIF

IF ALLTRIM(UPPER(THISFORM.DATAENVIRONMENT.cursor1.CURSORSOURCE)) # ALLTRIM(UPPER(x))
   THISFORM.DATAENVIRONMENT.CLOSETABLES
   THISFORM.DATAENVIRONMENT.CURSOR1.CURSORSOURCE = x
   THISFORM.DATAENVIRONMENT.OPENTABLES
ENDIF