永发信息网

Lotus designer设计完表单的时候点击预览,浏览器显示404错误

答案:1  悬赏:0  手机版
解决时间 2021-05-05 19:03

内置HTML代码如下:

<link href="Style.css" rel="stylesheet" type="text/css" />
<div id="div1" >
<select id="select1" multiple="multiple" size="15" ondblclick="OKClick()">

【文本域】 设置为计算 初始值为options

</select>
</div>

---------------------------------------------------------------

JS Head 里面的代码如下“

function OKClick()
{
var para = new Array();
var select1 = document.forms[0].select1;
alert(url);
if(select1.selectedIndex != -1)
{
for (var i=0; i < select1.options.length; ++i)
{
if (select1.options[i].selected)
{
para[1]=select1.options[i].text;
}
}
}
returnValue=para;
self.close();
}

-------------------------------------------------------

代理的代码如下:

Sub Initialize
Dim s As New notessession
Dim db As NotesDatabase
Dim view As notesview
Dim doc As NotesDocument
Dim item As notesitem
Dim strs As String
Dim curDoc As notesdocument


Set db = s.CurrentDatabase
Set view = db.GetView("vwSelect")
Set curDoc = s.DocumentContext
Set doc = view.GetFirstDocument()
Set item = doc.GetFirstItem("format")
Forall i In item.Values
strs = strs+|&lt;option value='|+i+|'&gt;|+i+|&lt;/option&gt;|
End Forall
Call curDoc.ReplaceItemValue("options",strs)
End Sub

最佳答案

将Call curDoc.ReplaceItemValue("options",strs)修改为curdoc.options=strs

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
如果有两个系统,怎么将另个系统删了,需要详
为什么阿为什么!
我想要把胳膊连粗怎么练啊
数码暴龙1~~4所有粤语电影
谁能给我一些论坛地址
红舞鞋舞蹈工作室在哪里啊,我有事要去这个地
善意的谎言是好还是坏呢?
家长和孩子达成妥协条列好么?
温州到福建的火车票是多少钱???
手机为什么百度不了?
人为什么总是在玩‘坏’呢?
电脑音响红色.绿色.白色的插头的,分别是什么
868型铝合金下料方式
表示恬淡闲适的诗句,王维的什么诗传达出一种
人受到精神刺激后头发会变白吗?
推荐资讯
让父母同意不军训的方法
SD敢达,有什么方法容易抽到A机
防沉迷和实名认证是同一身份证,但个是注册帐
南宁市哪个书店有《动画狂热》售?
求兽医开腹术计划书范文
长春华卫天地智能技术有限公司地址在什么地方
求《藏地密码》1-8全集TXT~~~~~
我空间里的农场我怎么进不去
天龙八部2火逍遥内功1800火攻1200平打多少血
喜欢一个女孩 但不知道怎么和她说明
手机在网怎样下载电影?
格式工厂转换器怎么用?转成3GP
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?