>Local cCheckName AS String >Scan > cCheckName = [Thisform.Pages1._page1.] + Alltrim(CheckBoxRules.Checkname) > WITH EVALUATE(cCheckName) > IF PEMSTATUS(EVALUATE(cCheckName),[cSqlString], 5) > .AddProperty([cSqlString],ALLTRIM(Rules)) > ENDIF > ENDWITH >ENDSCAN >>
>>Local cSql As String,; >>nResult As Integer,; >>nAlias As Integer,; >>cCheckName As String,; >>cCheckAddProperty As String,; >>cCheckSqlString AS String >> >>cSql = [Select * From X313CheckBoxRules] >>nResult = SQLExec(lnSql,cSql,[CheckBoxRules]) >>nAlias = Select() >> >>Select CheckBoxRules >>Scan >> cCheckName = [.] + Alltrim(CheckBoxRules.Checkname) >> With Thisform.Pages1._Page1 >> cCheckAddProperty = cCheckName + [.Addproperty('cSqlString')] >> Try >> lRetVal = Evaluate(cCheckAddProperty) && Executes ok! >> >> cCheckSqlString = cCheckName + [.cSqlString = ] + '[' + Alltrim(CheckBoxRules.Rules) + ']' >> lRetVal = Evaluate(cCheckSqlString) && Error operator / operand type mismatch >> Catch To oException >> oException = Null >> Endtry >> Endwith >>Endscan >>Use In CheckBoxRules >> >>>>
>>>>Local cCheckName AS String >>>> >>>>Scan >>>> cCheckName = [.] + Alltrim(CheckBoxRules.Checkname) >>>> With Thisform.Pages1._page1 >>>> ? &cCheckName && evaluates to _Check1 of type object >>>> &cCheckName..Addproperty('cSqlString',&Rules) && Error >>>> Endwith >>>>Endscan >>>>>>>>