lotus常用代码.doc

lotus常用代码 1.取得固定计算机的用户名:创建计算文本域,域值Name(CN;UserName)2.在Notes中要上传附件,除了用菜单中的曲别针上载外,还可以创建一个按钮,公式为:Command(EditGotoField;Upload);Upload为上载附件的RTF域名Command(EditInsertFileAttachment)3.列出附件名称并使之在网页下可以下载:创建允许多值的计算文版域,域值公式(一)为:ThisDb :=ReplaceSubstring(Subset(DbName; -1); : ;/:+);res := Implode( +AttachmentNames +; ); + res + 此公式可以改变显示的文本属性域值公式(二)为:If(Elements(AttachmentNames) = 0; ;Implode( + AttachmentNames +; NewLine)域值公式(三)为:+AttachmentNames+4.求出附件的个数:创建计算数字域,公式为:If(Attachments 0; Attachments; 0)5.列出附件名称及大小:创建计算数字域,公式为:If(Attachments0;AttachmentNames +： +Text(AttachmentLengths) + NewLine;0)注意：此公式还需改进，在项与项之间多了一个分号，而分号是多余的改进后为:(一)将原来的域改为计算文本,公式为:Implode( AttachmentNames +： +Text(AttachmentLengths);NewLine)(二)文件名称文件大小以下是“计算文本”NotesPath:=Explode(Subset(DbName;-1););DbAddress:=Implode(NotesPath;/);tem:=Integer(AttachmentLengths/1024);tmpsize:=If(IsError(tem );0+KB;Text(tem)+ KB);xx0_1:=;xx1_1:=ahref=;xx0:=;xx4:=;xx5:=;xx6_1:=xx0_1+&a mp;nbsp;+xx1_1+xx2+AttachmentNames+xx3+AttachmentNames+xx4+tmpsize+xx5;xx6:=xx0+AttachmentNames+xx1+xx2+AttachmentNames+xx3+AttachmentNames+xx4+tmpsize+xx5;If(IsMember(SysManager;UserRoles);Implode(xx6;);Implode(xx6_1; )待验证。6.多个附件求总大小:创建计算数值域,公式为:If(Attachments 0;Sum(AttachmentLengths); 0)或 Sum(if(Attachments 0;AttachmentLengths;0)7.若想在文档中删除附件,注意这里没有权限设置:创建计算文本域,公式为:+AttachmentNames+注意：若要显示已经删除附件，单击保存菜单即可8.返回数据库的名字: DB :=ReplaceSubstring(ReplaceSubstring(Subset(DbName; -1);+);/);9.要在网页上显示当天星期，可创建创建时计算的文本域，用以下公式得出：myday:=Weekday(Created);If(myday=1;星期日;myday=2;星期一;myday=3;星期二;myday=4;星期三;myday=5;星期四;myday=6;星期五;星期六)Domino视图数据导出到Excel的代码LOTUS 2007-04-20 10:42:11 阅读35 评论0 字号：大中小订阅 function exportToExcel()var i,j;var oXL = new ActiveXObject(Excel.Application);oXL.Visible = true;var oWB = oXL.Workbooks.Add();var oSheet = oWB.ActiveSheet;/var tbl = document.getElementById(myData);var tbl = document.all.tags(TABLE)2;for(i=0;itbl.rows.length;i+)for(j=1;j=tbl.rows(i).cells.length;j+)oSheet.Cells(i+1, j).Valu