Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Memo field odditity in the dynamically created grid
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
00987955
Message ID:
00988126
Views:
67
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform