Dear all,

I cannot solve the problem in following code. It is the event handle of CheckBox.Click.

cTblName = LEFT( THIS.TAG, i - 1 )

USE table1 ORDER 2
SEEK UPPER( cTblName )
IF FOUND( )
IF ( this.Value = 1 ) <-ERROR: operator/operand
REPLACE FLAG WITH .T. type mismatch.

ELSE
REPLACE FLAG WITH .F.
ENDIF
ENDIF
USE

Any help is appreciated.