>>>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
Never mind her; she is too nit picking :) Thanks for the explanation. I am sure this function will come in handy.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham