>>>Dmitry,
>>>
>>>Perhaps this function may be of help.
>>>
>>>Pass
>>>- nothing for current workarea
>>>- an alias name
>>>- a workarea
>>>
>>>
>>>UPDATE
>>>
>>>
>>>function GetTableName(wa)
>>> wa = evl( m.wa, select(0) )
>>>
>>> do case
>>> case !used(m.wa)
>>> return '???'
>>>
>>> case !empty(cursorgetprop('DataBase', m.wa))
>>> return proper(cursorgetprop('SourceName', m.wa))
>>>
>>> otherwise
>>> return Proper(juststem(dbf(m.wa)))
>>>
>>> endcase
>>>endfunc
>>>
>>
>>Thank you, Gregory.
>
>
>My pleasure.
>
>It returns the table name defined in the database - not the dbf() name
>Returns the stem of the dbf in case of a free table,
>
>If it isn't useful now - it may be in the future
>
>And, my, ahem, secretary informs you that you have to add error handling - gr+d
One more calling me a secretary and I will get seriously offended. You did update your original message - and you're so opposed to making changes in the message - in this case you changed the code.
If it's not broken, fix it until it is.
My Blog