Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Relation
Message
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Divers
Thread ID:
00806659
Message ID:
00806813
Vues:
13
I have 11 records with "CCDV801" but SCAN only
gets 1.
Please look below whats wrong when usin SCAN



select solutions
SCAN WHILE alltrim(solutions.model) = "CCDV801"


Store alltrim(model) TO modelD
Store alltrim(subj) to subjD
Store alltrim(L1) to L1D
Store alltrim(L2) to L2D
Store alltrim(L3) to L3D
Store alltrim(L4) to L4D
Store alltrim(L5) to L5d
Store alltrim(L6) TO L6D
Store alltrim(L7) to L7D
Store alltrim (L8) to L8d
Store alltrim(L9) to L9D
Store alltrim(L10) to L10D



Set Textmerge to mytext.html noshow &&additive
Set Textmerge on


if .not. empty (modelD)
store "

" +modelD+ "

" to modelD2
\<>
endif

if .not. empty (subjD)
store "

" +subjD+ "

" to subjD2
\<>
endif


if .not. empty (L1D)
store "

" +L1D+ "

" to L1D2
\<>
endif

if .not. empty (L2D)
store "

" +L2D+ "

" to L2D2
\<>
endif

if .not. empty (L3D)
store "

" +L3D+ "

" to L3D2
\<>
endif

if .not. empty (L4D)
store "

" +L4D+ "

" to L4D2
\<>
endif


if .not. empty (L5D)
store "

" +L5D+ "

" to L5D2
\<>
endif


if .not. empty (L6D)
store "

" +L6D+ "

" to L6D2
\<>
endif

if .not. empty (L7D)
store "

" +L7D+ "

" to L7D2
\<>
endif


if .not. empty (L8D)
store "

" +L8D+ "

" to L8D2
\<>
endif



if .not. empty (L9D)
store "

" +L9D+ "

" to L9D2
\<>
endif



if .not. empty (L10D)
store "

" +L10D+ "

" to L10D2
\<>
endif



Set Textmerge to
Set Textmerge off
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform