General information
Category:
The Mere Mortals Framework
Title:
Grid Builder and Errors
Kevin,
I have modified the Grid Builder to allow errors in the GridColumnControls to be reported:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only