>Como faco para pegar o nome das tabelas no enviroment do form colocando o codigo no beforeopentables?


De uma olhada neste código, e faça as adaptações necessárias. Eu particularmente não coloco código no BeforeOpenTables. Pois se for uma coisa para toda a aplicação, tenho que colocar o código em cada form. prefiro setar a propriedade do DataEnvironment de autoopentable = .F., e executar o código no Load do form e após isto executar o metodo
dataenvironment.OpenTables()

=amembers(aCursor,This,1)
=asort(aCursor,1)

nPosInic=Asubscript(aCursor,aScan(aCursor,"Object"),1)

For nCount = nPosInic to alen(aCursor,1)
If aCursor(nCount,2)="Object"
cObjClass = "This."+aCursor(nCount,1)+".class"
If Eval(cObjClass)="Cursor"
cObjName = "This.Dataenvironment."+aCursor(nCount,1)+".DataBase"
cObjAlias = "This.Dataenvironment."+aCursor(nCount,1)+".Alias"
cDataName = Eval(cObjName)
cAlias = EVALUATE(cObjAlias)
EndIf
EndIf
EndFor