What seems to be a problem?

>
>I have a few tables that will have it's structure updated by the user. For that reason the RVs to the tables are created using SELECT * as I don't know what fields will be in there. I have some old code which is working in this direction but I don't know if this is the most efficient or safe way to do this.
>
>Any suggestions are welcome.
>
>

		WAIT WINDOW "Recreating View with updated fieldnames" NOWAIT
>
>		vp_iPID    = 0
>		vp_AllRecs = 0
>		lcViewName = IIF(goApp.UseLocalData(), "l", "r") + THIS.aCursors[1]
>		llRetVal   = .T.
>		lcViewCode = DBGETPROP(lcViewName, "VIEW", "SQL")
>
>
>		THIS.SetDefaultDatabase()
>
>		&lcViewCode
>
>
>		* View Properties
>		DBSETPROP(lcViewName, 'View', 'UpdateType'      , 1)
>		DBSETPROP(lcViewName, 'View', 'WhereType'       , 1)
>		DBSETPROP(lcViewName, 'View', 'FetchMemo'       , .T.)
>		DBSETPROP(lcViewName, 'View', 'SendUpdates'     , .T.)
>		DBSETPROP(lcViewName, 'View', 'UseMemoSize'     , 255)
>		DBSETPROP(lcViewName, 'View', 'FetchSize'       , 100)
>		DBSETPROP(lcViewName, 'View', 'MaxRecords'      , -1)
>		DBSETPROP(lcViewName, 'View', 'Tables'          , SUBSTR(lcViewName, 4))
>		DBSETPROP(lcViewName, 'View', 'Comment'         , [])
>		DBSETPROP(lcViewName, 'View', 'BatchUpdateCount', 1)
>		DBSETPROP(lcViewName, 'View', 'ShareConnection' , .F.)
>		DBSETPROP(lcViewName, 'View', 'Prepared'        , .F.)
>		DBSETPROP(lcViewName, 'View', 'CompareMemo'     , .T.)
>		DBSETPROP(lcViewName, 'View', 'FetchAsNeeded'   , .F.)
>		DBSETPROP(lcViewName, 'View', 'RuleExpression'  , [])
>		DBSETPROP(lcViewName, 'View', 'RuleText'        , [])
>		DBSETPROP(lcViewName, 'View', 'ParameterList'   , [vp_ipid, 'N'])
>
>
>		lnOldArea       = SELECT(0)
>		lcConnectName   = DBGETPROP(lcViewName, 'View', 'ConnectName')
>
>
>		* View Field Properties
>		SELECT 0
>		USE (lcViewName)
>
>		lnFields = AFIELDS(laFields)
>
>		FOR lnCnt = 1 TO lnFields
>			SELECT (lcViewName)
>
>			lcField = lcViewName + "." + laFields[lnCnt, 1]
>
>			DBSETPROP(lcField, 'Field', 'KeyField'           , UPPER(laFields[lnCnt, 1]) = "IID")
>			DBSETPROP(lcField, 'Field', 'Updatable'          , .T.)
>			DBSETPROP(lcField, 'Field', 'UpdateName'         , SUBSTR(lcViewName, 4) + "." + laFields[lnCnt, 1])
>		ENDFOR
>
>		USE IN (lcViewName)
>
>		SELECT (lnOldArea)
>
>		WAIT WINDOW "Finished Recreating View with updated fieldnames" NOWAIT