Rex,
Geesh, if you guys keep coming up with the problem *and* the solution, I can retire <bg>. Thanks for post!
>1) Add a record to the MMBDMeta table
>cKey = "GRIDCOLUMN"
>cMethod = "ERROR"
>mMemo =
>LPARAMETERS nError, cMethod, nLine, tcSys16, toErrObj
>THIS.Parent.Error(nError, cMethod, nLine, tcSys16, toErrObj)
>
>Add the following code to the mmSec_CGrid.ColumnSetUp
>
>SELECT * FROM MMBDMeta ;
> WHERE UPPER(MMBDMeta.cKey) = 'GRIDCOLUMN ' ;
> INTO CURSOR MM_TempColumnCode
>
>SCAN
> *--- Check if the header already contains code
> lcMethod = ALLTR(MM_TempColumnCode.cMethod)
> lcCode = ThisForm.oObject.Columns[tnColumn].Controls[1].ReadMethod(lcMethod)
> IF EMPTY(lcCode)
> *--- The method is empty. Replace with specified code
> ThisForm.oObject.Columns[tnColumn].WriteMethod(lcMethod,MMBDMeta.mMemo)
> ENDIF
>ENDSCAN
>
>USE IN MM_TempColumnCode
>
>Thanks
>
>Rex
Kevin McNeish
Eight-Time .NET MVP
VFP and iOS Author, Speaker & Trainer
Oak Leaf Enterprises, Inc.
Chief Architect, MM Framework
http://www.oakleafsd.com