当前位置：文江博客话题详情

使用另一个数据库的脚本库

发布于 2024-10-07 00:33:53 字数 24 浏览 6 评论 0原文

是否可以从另一个数据库调用脚本库？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

红尘作伴 2024-10-14 00:33:53

不直接。您唯一可以做的就是让一个数据库从另一个数据库继承，并仅设置要继承的 LotusScript 库。然后，您可以对父数据库进行更改，并将它们转移到子数据库。

但是，您可以在另一个数据库上运行代理。代理又可以调用自己数据库中的脚本库。根据您的目标，您也许能够从中获得您需要的东西。

回复收藏 0 原文

百变从容 2024-10-14 00:33:53

从你的评论来看，你似乎是在给代理中的代理打电话。这并不是最好的解决办法。

如果您直接从按钮调用“TextExternalUse”代理，您可能会得到您想要的结果。这意味着创建常规操作按钮而不是共享操作并直接调用代理。

更新：
我想我知道你的问题是什么。如果使用公式调用其他数据库中的代理，则不起作用，因为公式只能调用当前数据库中的代理。因此，如果您使用“ToolsRunMacro”，它没有用于指定不同数据库的参数。

尝试使用 LotusScript 调用代理。这是一个例子。

我创建了 2 个数据库，其中一个数据库有一个名为“clickme”的代理，它只显示一个“notesUIWorkspace.prompt”，另一个数据库的视图有一个操作按钮，其中包含以下代码，从 db1 调用代理

  Sub Click(Source As Button)
     Dim agnt As notesAgent
     Dim db2 As notesDatabase

     Set db2 = New notesDatabase("","test2.nsf")
     Set agnt = db2.GetAgent("clickme")
     Call agnt.Run

    End Sub

您可以测试类似的内容吗多于？

From your comments, it seems that you are calling an agent within an agent. Not really the best way to go about it.

You may get the result you want if you merely call the "TextExternalUse" agent directly from the button. This means creating a regular action button rather than a shared action and calling the agent directly.

UPDATE:
I think I know what your problem is. If you're using formula to call the agent in the other database, it won't work, because formula can only call agents in the current database. So if you're using "ToolsRunMacro" it has no parameter for specifying a different database.

Try calling the agent with LotusScript. Here is an example.

I created 2 databases one with an agent called "clickme", which simply displays a "notesUIWorkspace.prompt", and another database with a view that has an action button with the following code that calls the agent from db1

  Sub Click(Source As Button)
     Dim agnt As notesAgent
     Dim db2 As notesDatabase

     Set db2 = New notesDatabase("","test2.nsf")
     Set agnt = db2.GetAgent("clickme")
     Call agnt.Run

    End Sub

Can you test something like the above ?

回复收藏 0 原文

~没有更多了~