Lotus常用命令、代码和设置
- 格式：doc
- 大小：183.50 KB
- 文档页数：37
1、 常用命令 .................................................................... 2
2、 视图中只显示当前用户创建的文档的选择条件 .......... 3
3、 lotus&excel的倒入，倒出代理 ................................. 3
倒入代理： ................................................................... 4
倒出代理： ................................................................... 6
倒出代理的条件（月份、年、其他条件）的代码： ...... 8
导出：按时间段导出 ................................................... 10
4、 保存时发邮件通知 .................................................... 13
5、 保存时文档自动编号和不能为空限制 ....................... 13
6、 表单名和快捷键 ....................................................... 14
7、 点击弹出表单 ........................................................... 14
8、 多人建表时冲突提示 ................................................ 15
9、 发送邮件 .................................................................. 15
10、 反重复 .................................................................... 17
11、 将表单复制到my文件夹中 .................................... 18
12、 控制文档是否存储 .................................................. 18
13、 NotesViewEntryCollection示例 .......................... 18
14、 判断域的类型和是否为空 ....................................... 19
15、 添加附件到域. ........................................................ 19
16、 文档的创建和删除. ................................................. 19
17、 样例，variant,string,evaluate .............................. 20
18、 主文档，答复文档，答复的答复层层缩进 .............. 21 19、 XML格式的导入和导出 ......................................... 21
20、 控制是否隐藏 ......................................................... 24
21、 流水码生成 ............................................................. 24
22、 对话框列表根据不同部门显示不同内容 ................. 26
23、 SQL和NOTES关联 ............................................. 26
24. 如何取得访问的IP地址 ............................................ 28
26使用LotusScript将Word功能表中指定项隐藏 ....... 31
27 常用颜色设置 ............................................................. 32
28 打开WINDOWS应用 ................................................ 32
29 显示分辨率的获取 ..................................................... 33
30. 保留域 FORM .......................................................... 34
31双点鼠标不启动编辑模式 ............................................ 34
32．插入附件 .................................................................. 35
33、RFT域的复制 .......................................................... 36
34、RFT导入到EXCEL ................................................. 37
35、表单里内容禁止COPY ............................................ 37
36.表单禁止保存.............................................................. 37
1、 常用命令
新建： @command([compose];"表名")
删除： @command([editclear])
注：在视图中删除文档：@Command([EditClear]);@PostedCommand([ViewRefreshFields])
编辑: @command([editdocument]) 打开: @command([editdocument];"0")
搜索: @command([viewshowsearchbar])
退出: @command([fileclosewindow])
展开: @command([viewexpandall])
折叠: @command([viewcollapseall])
上一条记录: @command([navigateprev])
下一条记录: @command([navigatenext])
刷新：@command([])
保存退出：@command([filesave])
简化当前用户：@Name([Abbreviate];@UserName)
显示未读/所有视图中切换：@Command( [ViewShowOnlyUnread] )
显示名字：@name([cn];@username)
显示创建日期或时间：@date(@created);@time(~~~~~)
规范化为名字格式：@Name([Canonicalize];Name)
日期格式规范： doc1.Date=Format(Today(),"yyyy-mm-dd")
地址栏加载数据：@Unique(@DbColumn( "" : "NoCache" ; "bserver/com" : "sql.nsf "; "按部门别"; 1 )) 1为第几行（竖）；
打印：@Command([FilePrint])
2、 视图中只显示当前用户创建的文档的选择条件
SELECT (@Contains(@Name([Abbreviate];@Author);@Name([Abbreviate];@UserName)))
3、 lotus&excel的倒入，倒出代理
注意：存储DOC中的域的数值，改为下面的代码
Dim filename As String
Dim fitem As Variant
rows=3
cols=1
exapp.visible=True
For i = 1 To coll
Set docA= docoll.getnthdocument(i)
exapp.statusbar="正在从Notes里导出数据，可能要一段时间，请等候....."
For j= 0 To Ubound(view.columns)
If view.columns(j).ishidden=False Then
If view.columns(j).title<>"" Then
filename= view.columns(j).itemname
fitem= docA.GetItemValue(filename) If fitem(0)="" Then
exsheet.cells(rows,cols).value=""
Else
exsheet.cells(rows,cols).value= Cstr(fitem(0))
End If
End If
exapp.rows(rows).select
exapp.selection.font.size=10
cols=cols+1
End If
Next
倒入代理：
要导入的EXCEL文件的路径获取：
excelFilename =ws.OpenFileDialog(False, "选择要上传的EXCEL","Excel|*.xls","c:\")
Sub Initialize
Dim excelFilename As String
excelFilename=Inputbox("请输入Excel档案所在的路径?例如:c:/programme files/c.xls","输入Excel档案位置","c:/programme files/c.xls")
If Dir(excelFilename)="" Then
Messagebox "Excel档案不存在，请重新填写"
Exit Sub
End If
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db=s.CurrentDatabase
Dim row As Integer
Dim excel As Variant
