内置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+|<option value='|+i+|'>|+i+|</option>|
End Forall
Call curDoc.ReplaceItemValue("options",strs)
End Sub