******************************************************************** * 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() endwiththe memo field still is not accessible.