Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding Notes in the same row
Message
From
13/04/2007 13:24:59
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows 2000 SP4
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01214141
Message ID:
01215631
Views:
14
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform