Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Adding Notes in the same row
Message
De
13/04/2007 13:24:59
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows 2000 SP4
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01214141
Message ID:
01215631
Vues:
13
>Hi Samuel,
>
>Would you please respond with a relevant piece of code (make sure to enable autoquote in message view setup)?
>
>Looking at the code only I do not see a problem. May be because I need to take a quick lunch break <g>

Here is the code.
OPEN DATABASE testdbase

SELECT mynotes
lcNotes = ""
SET ORDER TO TAG tComPrt
SEEK crsbom.partnum
SCAN WHILE mynotes.partnum = crsbom.partnum
 IF EMPTY(mynotes.notes)
  LOOP
 ENDIF
 lcNotes = m.lcNotes + ALLTRIM(mynotes.notes)+ space(1)
ENDSCAN
IF NOT EMPTY(m.lcNotes)
 REPLACE Notes WITH crsbom.notes + m.lcNotes IN crsbom
ENDIF
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform