Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Division to columns
Message
 
À
28/09/2005 06:56:53
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Database:
Visual FoxPro
Divers
Thread ID:
01053818
Message ID:
01053830
Vues:
9
>You code run, but it's not do nothing.
>crsr2 is empty.
create cursor crsr1(id i)
for i=1 to 10
    insert into crsr1 value(i)
endfor

create cursor crsr2(a c(1),b c(1),c c(1))

SELECT crsr1
lnTest = 0
lcInsert = "INSERT INTO Crsr2 VALUES (m.Val1, m.Val2, m.Val3)"
SCAN
  lnTest  = lnTest + 1
  m.TestV = "m.Val" + TRANSFORM(lnTest)
  &TestV  = TRANSFORM(Id)
  IF lnTest == 3
     &lcInsert
     lnTest  = 0
  ENDIF
ENDSCAN
SELECT Crsr2
BROW
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform