Information générale
Catégorie:
Codage, syntaxe et commandes
hi all,
i get the message (alias not found), any help
this is the code.
*****************
SET TALK OFF
SET ECHO off
GETDIR()
thisform.text1.Value=GETFILE()
SET DEFAULT TO e:\samerqda
LOCAL lcTableName
lcTableName = thisform.text2.value
CREATE TABLE &lcTableName (char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 C(10), char10 C(70),char11 C(10), char12 C(10),char13 C(10), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
APPEND FROM (thisform.text1.value)TYPE XLS
******************************************
USE (thisform.text2.value) exclusive
index on char9 tag char9
select sys(2015) as SortOrder,* from (thisform.text2.value) ;
order by 1 descending ;
into cursor crsTemp nofilter
select (thisform.text2.value)&&&alias not found
zap
select crsTemp
scan
if !seek(char9 ,'(thisform.text2.value)','char9 ')
scatter memvar memo
insert into (thisform.text2.value) from memvar
endif
endscan
brow
Suivant
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