>>Try
>>

>>RETURN "CrsSel+PADL(ALLTRIM(STR(thisform.PageFrame1.ActivePage)),2,"0")
>>replace TkCode WITH 1 IN  (thisform.z_CN())

>
>return command is wrong, please check it again.
>i changed it to RETURN "CrsSel"+PADL(ALLTRIM(STR(thisform.PageFrame1.ActivePage)),2,"0")
>but i get Invalid subscript reference error again.
>I think problem is in
>... IN (thisform.z_CN())
>but i don't know how to solve it.
>thanks

Try

lcAlias = thisform.z_CN()

replace ... IN (m.lcAlias)