Nick,
I've writen the code 'THISFORM.cntGridCover1.Zorder(0)' but the error still occur and I trace that it comes from the cntGridCover1->init event.
This is the code :
------------------
WITH THIS
Local lcHost
.borderwidth = 0 && It has visible border only in development mode
for developer's convenience
.cInternal1 = "this.parent." + .NAME + ".nRecno"
.cHostName = ALLTRIM(.cHostName)
lcHost = .cHostName
* this is the error line
* -------------------------------------------------------------------
.cAlias = IIF(INLIST(.PARENT.&lcHost..RECORDSOURCETYPE, 3, 4), SUBSTR
(.PARENT.&lcHost..COLUMNS(1).CONTROLSOURCE, 1, AT'.',
.PARENT.&lcHost..COLUMNS(1).CONTROLSOURCE) - 1 ) , .PARENT
.&lcHost..RECORDSOURCE)
* -------------------------------------------------------------------
.SetDynamicColor()
ENDWITH
Précédent
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