Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Anders Altberg
  Where is Anders Altberg?
 Uppsala
 Sweden
 Anders Altberg
 To: David David
  Where is David David?
 
 Iowa - Kazakhstan
 David David
 Tags
Subject: RE: DBF 2 Editbox
Thread ID: 373615 Message ID: 373649 # Views: 42 # Ratings: 1
Version: Visual FoxPro 9 Category: Forms
Date: Sunday, March 24, 2013 7:25:57 PM         
   


> Sir I have modified your codes as
>
>
> #DEFINE CRLF CHR(10)
> LOCAL lcString 
> SELECT myalias
> lcString=""
> SCAN 
>  lcString=m.lcString+TRIM(names)+CRLF
> ENDSCAN 
> thisform.edit1.value=m.lcString
> 

>
> It works fine but I need more help
> No I want to show data as
>
> abcsg
> dgeag
>
> hrhhge
> xdyage
>
> loeage
> gereg
>
> One extra row or chr(13)after every EVEN row as above.

#DEFINE LF CHR(10)
LOCAL lcString, lnRowCount
SELECT myalias
lcString=""
lnRowCount=0
SCAN 
 lcString=m.lcString+TRIM(names)+LF
 lnRowCount=m.lnRowCount+1
 IF lnRowCount%2=0
 lcString=m.lcString + LF
 ENDIF 
ENDSCAN 
Thisform.Edit1.Value=m.lcString


Not tested.
-Anders

ENTIRE THREAD

DBF 2 Editbox Posted by David David @ 3/24/2013 7:22:08 AM
RE: DBF 2 Editbox Posted by Anders Altberg @ 3/24/2013 11:46:07 AM
RE: DBF 2 Editbox Posted by David David @ 3/24/2013 12:51:28 PM
RE: DBF 2 Editbox Posted by Anders Altberg @ 3/24/2013 2:12:12 PM
RE: DBF 2 Editbox Posted by David David @ 3/24/2013 4:22:47 PM
RE: DBF 2 Editbox Posted by Stefan Wuebbe @ 3/24/2013 5:04:06 PM
RE: DBF 2 Editbox Posted by Koen Piller @ 3/24/2013 6:24:12 PM
RE: DBF 2 Editbox Posted by Stefan Wuebbe @ 3/25/2013 11:51:37 AM
RE: DBF 2 Editbox Posted by Anders Altberg @ 3/24/2013 7:25:57 PM