Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Relation
Message
 
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
00806659
Message ID:
00806813
Views:
14
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform