壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 994|回复: 5

[Domino B/S开发] 关于代理不运行问题

[复制链接]
发表于 2005/3/9 15:38:27 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
NSF数据库可以在WEB打开。

表单A:
有个域:RunStr,文本
WEBQUERYSAVE输入代理公式:@Command([ToolsRunMacro]; "(MyAMgr001)");
提交按钮下代码:
FIELD RunStr:="表单保存";
@Command([RefreshHideFormulas]);       
@Command([FileSave]);
@Command([FileCloseWindow])

代理MyAMgr001:
名称:MyAMgr001;
所有者:共享
运行时间:列表选择运行;
指定代理操作的文档:运行一次/或所有文档
内容:
Sub Initialize
        Dim Session As New NotesSession
        Dim db As NotesDatabase
        Dim doc As NotesDocument       
        Set db = Session.CurrentDatabase
        Set doc = Session.DocumentContext
       
        RunString$ = doc.RunStr               
        Print "<BODY TEXT=&#39;000000&#39; BGCOLOR=&#39;#F5F0E6&#39; "
        Print "<form><B><center><FONT SIZE=5 COLOR=&#39;ff0000&#39; FACE=&#39;楷体_GB2312&#39;>"
       
        Print "<br><br><br>提示:[“+RunString+“]它就是不运行!<br>"
        Print "</FONT></B><BR> <BR><INPUT TYPE=button onClick=&#39;javascript:window.close()&#39; VALUE=&#39;关 闭&#39;>"
        Print "<FONT FACE=&#39;仿宋_GB2312&#39;></center></FONT></form>"
               
End Sub

运行结果:
代理没有运行,跳转到却省界面;

原因分析:
可能是代码错误?可能数据库属性设置错误?可能是服务器设置错误?

我很久没有做DOMINO项目了,最近因为需要才重新上手,没想到晕菜了好几天,肯请大家帮忙,谢谢!
 楼主| 发表于 2005/3/9 16:11:38 | 显示全部楼层
问题错误修正:
RunString$ = doc.RunStr (0)
发表于 2005/3/10 07:25:33 | 显示全部楼层
Set doc = Session.documentcontext
发表于 2005/4/26 15:18:05 | 显示全部楼层
指定代理操作的文档:无或目标选择无
发表于 2005/4/27 11:47:46 | 显示全部楼层
指定代理操作的文档:运行一次/或所有文档
最好选择使用@command

另外,我建议你先把按钮下面的几行去掉,然后再察看一下代理是否执行或者是否出现错误。
发表于 2005/4/30 23:07:21 | 显示全部楼层
在Sub Initialize后面加msgbox,看看是不是代理运行了^_^

[本贴已被 Neil 于 2005-4-30 23:08:48 修改过]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/29 16:52 , Processed in 0.014882 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表