我有两个字段一个叫 “大类”，一个叫“小类”
我在大类的  ValueChange 中写了如下代码，目的是用来控制小类的许可权的
我准备在003处加一些处理的代码，就在我还没有加代码到003行的时候，问题出现了，004-008行似乎没有执行，我将大类设置成通用后，小类没有变”红”。
当我删除001-003 后，004-008 正常执行。不知道我的错误在什么地方。



001  dim session
002  session=getsession()
003  
004  if  GetFieldValue("大类").GetValue="通用” then
005                SetFieldRequirednessForCurrentAction "小类",AD_MANDATORY
006   else
007                SetFieldRequirednessForCurrentAction "小类",AD_OPTIONAL
008   end if

把这一句 session=getsession()
改成 Set session = GetSession
就OK了。