Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Division to columns
Message
 
À
28/09/2005 06:31:44
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:
01053820
Vues:
7
>Hi
>Help please:
>I have a cursor with 10 lines:
>for example:
>
create cursor crsr1(id i)
>for i=1 to 10
>insert into crsr1value(i)
>endfor
>Now, I have another cursor with three columns
>for example:
>
create cursor crsr2(a c(1),b c(1),c c(1))
>
>I want to divide the values of the first cursor inside the second like this:
>A B C
>1 2 3
>4 5 6
>7 8 9
>10
>
>How can I do it?
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
(not tested)
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform