Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Search for views in data environment
Message
De
18/11/1998 13:40:31
 
 
À
18/11/1998 12:43:28
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00158854
Message ID:
00158914
Vues:
19
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
Fil
Voir

Click here to load this message in the networking platform