Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding Notes in the same row
Message
 
 
To
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:
01215636
Views:
18
>>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
Previous
Reply
Map
View

Click here to load this message in the networking platform