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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement