General information
Category:
Coding, syntax & commands
First of all, used() requere ALIAS name, not the file name.
if !used('myfile')
sele 0
use myfile
endif
Another problem is that table could be open using alias name differ from the table file name. Then this may help:
?isused('myfile')
Procedure isused
Lparameter pcTableName
local retval
retval=.f.
pcTableName=alltr(upper(pcTableName))
release aa
if aused(aa)>0
Local iaa
for iaa=1 to alen(aa,1)
if "\"+pcTableName+".DBF"$ dbf(aa[iaa,1])
retval=.t.
endif
endfor
endif
release aa
return retval
>i have a function that i use in a number of forms. in it i need to determine if a certain file is open and if not, open it. code goes like this:
>if !used('myfile.dbf')
>sele 0
>use myfile
>endi
>the problem is that VFP goes into the IF even if the file is 'used' and gives an error message that says the file is already in use. any ideas on how to actually see if the file is open or not?
>tia!
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only