Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Edit box in grid only shows first 40 chars
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Database:
Visual FoxPro
Divers
Thread ID:
01096588
Message ID:
01096611
Vues:
17
My editbox is a subclass, but I haven't changed any of the default settings.
Like I said it works fine on this test form I created. (I did try using the baseclass directly too though).
I even deleted the whole container and created a new one only with some basic settings.
Again it does the same thing. It will not run on my production form.
Funny thing. I decided to enter 6 lines of text in the memo, hitting enter after each one.
The first line in the edit box shows correct, until it is longer than 40 characters.
the second line only show 15 characters after which the line is cut off.
the third line doesn't show at all. (I just noticed that if first line is 40 chars then it doesn't display other lines at all)

Yet again, in my testform it displays correctly.

Here is the code in setNotes()in the ctnrNotes Container:
WITH this.grdNotes
	.AllowCellSelection = .T.
	.RecordSourceType = 1
	.RecordSource = SPACE(0)

	
	SELECT cnotes.note_date, cnotes.name, cnotes.note_type, cnotes.note, cnotes.note_key ;
		FROM cnotes ;
		WITH (buffering = .t.) ;
		INTO CURSOR grdNotes
	
		
	.RecordSource = 'grdNotes'
	.column1.controlsource = 'grdNotes.note_date'
	.column2.controlsource = 'grdnotes.name'
	.column3.controlsource = 'grdnotes.note_type'
	.column4.controlsource = '(grdnotes.note)'
ENDWITH
scan
messagebox(MEMLINES(grdNotes.note)) &&gives 1 line if line is 40 chars, 2 if 1st line < 40 chars
MESSAGEBOX(ALINES(atest,grdNotes.note)) &&gives 6 lines
ENDSCAN
I just don't get it.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform