Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Memo field odditity in the dynamically created grid
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Divers
Thread ID:
00987955
Message ID:
00988126
Vues:
63
>I think DoubleClick Event of the Column TextBox is occured before the grid one. If You put TextBox::DoubleClick or DODEFAULT() there what happens?

Hi Boris,

This is driving me crazy. I have an empty grid on the form, I didn't set it up in the design-time.

Here is my code in page.Activate:
********************************************************************
*  Description.......: pageGrid.Activate
*  Calling Samples...:
*  Parameter List....:
*  Created by........: Nadya Nosonovsky 05/25/2000 10:02:36 AM
*  Modified by.......:
********************************************************************
if thisform.lPageGridActivate=.f.
	thisform.LockScreen = .t.
	local array laColumns(1,1)
	dimension laColumns(11,3)

	laColumns[1,1]="Lender.Code"
	laColumns[1,2]="Lender Code"
	laColumns[1,3]= 10

	laColumns[2,1]="Lender.Short"
	laColumns[2,2]="Short Lender Name"
	laColumns[2,3]= 20

	laColumns[3,1]="Lender.FullName"
	laColumns[3,2]="Full Lender Name"
	laColumns[3,3]= 40

	laColumns[4,1]="Lender.Status"
	laColumns[4,2]="Town"
	laColumns[4,3]= 8

	laColumns[5,1]="Lender.Pcoflag"
	laColumns[5,2]="Lndr Rollup Status"
	laColumns[5,3]= 5

	laColumns[6,1]="Lender.ParentCode"
	laColumns[6,2]="Parent Code"
	laColumns[6,3]= 10

	laColumns[7,1]="Lender.Category"
	laColumns[7,2]="Lender Group Code"
	laColumns[7,3]= 10

	laColumns[8,1]="Lender.Customer"
	laColumns[8,2]="WG Customer Y/N"
	laColumns[8,3]= 4

	laColumns[9,1]="Lender.Merscode"
	laColumns[9,2]="MERS Code"
	laColumns[9,3]= 10

	laColumns[10,1]="Lender.NHCode"
	laColumns[10,2]="NH Code"
	laColumns[10,3]= 10

	laColumns[11,1]="Lender.Notes"
	laColumns[11,2]="Notes"
	laColumns[11,3]= 10

	with this.grdTable
	*	.recordsource = "Lender"
		
		.columncount =  alen(laColumns,1)

		for i=1 to alen(laColumns,1)
			.columns(m.i).controlsource = laColumns[m.i,1]	&& Assign controlsource
			.columns(m.i).header1.caption = laColumns[m.i,2]
		NEXT
		
		.FormatAndSetCaption()
	endwith
ENDIF
thisform.LockScreen = .f.
thisform.lPageGridActivate=.t.
*this.refresh()
this.grdTable.setfocus()
Commenting this code out doesn't work, e.g. even with
	with this.grdTable
*		.recordsource = "Lender"
		
*!*			.columncount =  alen(laColumns,1)

*!*			for i=1 to alen(laColumns,1)
*!*				.columns(m.i).controlsource = laColumns[m.i,1]	&& Assign controlsource
*!*				.columns(m.i).header1.caption = laColumns[m.i,2]
*!*			NEXT
		
*		.FormatAndSetCaption()
	endwith
the memo field still is not accessible.

But I tried to do similar thing on a test form and the Memo was accessible. Something is bad with these forms.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform