微软MVP罗勇的博客

不少情况下需要当视图是只读时(就是在职责的视图中将视图的只读的勾打上)，按钮不可点击，我这里介绍两种方法：

方法一：在你使用的Application的Application_PreNavigate事件中撰写类似如下代码，也就是当要导航到的视图是只读视图时，设置名称为IsViewReadOnly的ProfileAttr的属性为Y，否则设置为N。

function Application_PreNavigate (DestViewName, DestBusObjName)

{

         if(TheApplication().InvokeMethod("IsViewReadOnly",DestViewName) == "TRUE" )

         {

                   TheApplication().SetProfileAttr("IsViewReadOnly","Y");

         }

         else

         {

                   TheApplication().SetProfileAttr("IsViewReadOnly","N");

         }

         return (ContinueOperation);

}

然后在按钮执行事件的CanInvokeMethod 的值中加入这样一行：AND GetProfileAttr("IsViewReadOnly") = "N" 即可实现啦，比如设置成这样：

Status = LookupValue("FS_ORDER_STATUS", "200") AND [Control Status] = LookupValue("ZTE_AGREE_CON", "1") AND [Info Id] IS  NULL  AND GetProfileAttr("IsViewReadOnly") = "N"

方法二：通过在Applet的 WebApplet_PreCanInvokeMethod 事件中撰写类似如下的代码：

function WebApplet_PreCanInvokeMethod (MethodName, &CanInvoke)

{

         if(MethodName =="CustomMethod1" || MethodName =="CustomMethod2")

         {

                   //当视图只读时，自定义按钮不可用

                   if (TheApplication().InvokeMethod("IsViewReadOnly", TheApplication().ActiveViewName()) == "TRUE")

                   {

                            CanInvoke = "FALSE";

                            return (CancelOperation);

                   }

         }

         return (ContinueOperation);

}

素格格新疆特产店--做最好新疆特产的搬运工。

本店由博主的新疆老婆开设，搬运各种最好的新疆特产，是自用，送礼，年货，孝敬长辈特别是(岳)父母的首选！