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
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