Information générale
Catégorie:
The Mere Mortals Framework
Titre:
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement