Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Search for views in data environment
Message
From
18/11/1998 13:40:31
 
 
To
18/11/1998 12:43:28
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00158854
Message ID:
00158914
Views:
17
Thanks for the responses. Since I keep all my forms in the same subdirectory I searched each .scx file for each view in the database.

close data all
open database thedata
set database to thedata
adbobjects(aviews,'VIEW')
create table c:\theview free (viewname c(20), formwith c(20))
index on viewname to viewname
lcformpath = curdir()+"FORMS\*.SCX"
ADIR(atree,lcformpath)
for i = 1 to alen(atree,1)
use atree(i,1) in 0 alias tablename share
select * from tablename where class = "cursor" and;
platform != "COMMENT" into cursor tmp
for j = 1 to alen(aviews)
select tmp
go top
do while !eof('tmp')
if atcline(aviews(j),tmp.properties) != 0
insert into theview(viewname,formwith);
values(aviews(j),atree(i,1))
endif
select tmp
skip
enddo
endfor
select tablename
use
endfor
select theview
set order to tag viewname
brow
Previous
Reply
Map
View

Click here to load this message in the networking platform