Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Memo sql
Message
 
To
19/04/2002 00:19:28
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
00646764
Message ID:
00646775
Views:
11
Rob,

You need to use both CHR(13) CR and CHR(10) LF. Also I have removed all of the extra ()'s you had.

Modify your code to this;
LOCAL lnotes, lnotescurrent, ddDate, cDateStr, dDate

ddDate = DATETIME( )
cDateStr = TRANSFORM(DAY(ddDate)) + " - " + UPPER(LEFT(CMONTH(ddDate),3)) + ;
           " - " + SUBSTR(TRANSFORM(YEAR(ddDate)),3)

lnotescurrent = THISFORM.edtNotes.VALUE

lnotes= cDateStr + CHR(13) + CHR(10) + ALLTRIM(lnotescurrent)

THISFORM.edtNotes.VALUE = lnotes

UPDATE investmentadvisor SET notes = lnotes ;
 WHERE managercode = pMgrCode 
The reason your replace errors is that you have the syntax wrong, change it as follows;
* Change from this
REPLACE notes WITH (lnotes)+chr(13) ;
  WHERE managercode =(pMgrCode)

* To this
REPLACE notes WITH lnotes + chr(13) + CHR(10)  ;
  FOR managercode = pMgrCode
Previous
Reply
Map
View

Click here to load this message in the networking platform