>Dear Sir,
>
>Is it possible to Replace all Alias names with their relevant CursorSources in DataEnvironment, For example
>
>I have Alias _621 and its CursorSource is 0621 && this is example of one alias
>I want to replace alias name as
>
>replace alias name with alltrim("c")+alltrim(str(cursorsource)) && in case if cursource name is numeric
>replace alias name with alltrim("c")+alltrim(cursorsource) && in case if cursource name is character
>and loop through all alias in dataenvironment of form
>
>After applying command the alias name will be c0621
>
>Please help

THISFORM.DataEnvironment.CloseTables
FOR EACH oCursor IN THISFORM.DataEnvironment.Objects 
  oCursor.Alias = "c"+JUSTSTEM(oCursor.CursorSource)
ENDFOR
THISFORM.DataEnvironment.OpenTables

That would do it... but why would you want to? Why not just set the correct alias name at design time?