Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Adding Notes in the same row
Message
 
 
À
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:
01215636
Vues:
17
>>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
go top
>lcNotes = ""
>SET ORDER TO TAG tComPrt
>if SEEK (crsbom.partnum)
>SCAN WHILE partnum = crsbom.partnum
> IF not EMPTY(mynotes.notes)
>   lcNotes = m.lcNotes + space(1) + ALLTRIM(mynotes.notes) 
  endif
>ENDSCAN
endif
>IF NOT EMPTY(m.lcNotes)
> REPLACE Notes WITH notes + m.lcNotes IN crsbom
>ENDIF
>
I made minor code changes, but I still don't see what's wrong. Will be back in 15 min.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform