Yes, this method will work better as the first one was closing all open tables. Thank you very much.
>OR
>
>AUSED(laCurrAliases)
>
>*-- Execute a Sql Select that opens one or more tables
>*** select * from mytable1 join mytable2 .. join mytable3.. etc.
>
>lnallAliases = AUSED(laArr)
>
>FOR lnLoop = 1 TO m.lnallAliases
> IF ASCAN(laCurrAliases,m.laArr[m.lnLoop,1])# 0
> LOOP
> ENDIF
> USE IN (m.laArr(m.lnLoop,1))
>NEXT
>
>
>>Thank you, Vladimir.
>>
>>>Try this:
>>>
>>>lcSelect = ALIAS()
>>>
>>>*-- Execute a Sql Select that opens one or more tables
>>>*** select * from mytable1 join mytable2 .. join mytable3.. etc.
>>>
>>>lnOpenDbfs = AUSED(laArr)
>>>
>>>FOR lnLoop = 1 TO m.lnOpenDbfs
>>>
>>> IF m.laArr[m.lnLoop,1] = m.lcSelect
>>> LOOP
>>> ENDIF
>>>
>>> USE IN (m.laArr(m.lnLoop,1))
>>>NEXT
>>>
>>>
>>>>Good morning,
>>>>
>>>>I would like to find a way to close all tables that are opened in a routine.
>>>>
>>>>Here is an example.
>>>>
>>>>
>>>>*-- bookmark selected area
>>>>nSelect = select()
>>>>
>>>>*-- Execute a Sql Select that opens one or more tables
>>>>select * from mytable1 join mytable2 .. join mytable3.. etc.
>>>>
>>>>*-- Close all tables opened in the above SQL Select.
>>>>
>>>>*-- I believe I need to know the highest SELECT() at this
>>>>point and scan it backwards until coming to nSelect.
>>>>But how to determine currently highest SELECT()?
>>>>
>>>>
>>>>
>>>>Or if you think or can suggest a better method to accomplish it, I would appreciate it.
"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
