![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Lotus
samuce
这个作者很懒,什么都没留下…
展开
-
Lotus的金额大小写转换
Dim Session As New NotesSessionDim db As NotesDatabaseDim doc As NotesDocumentSet db = Session.CurrentDatabaseSet doc = Session.DocumentContext将数字转换在人民币在写Dim strMoney ,strDec, strInt, cNum ,tmp1 As S原创 2008-12-17 00:10:00 · 548 阅读 · 0 评论 -
计算视图文档数
条件:视图RenYuan,第一类:排序分类BuMen,第二列:XingMing问题:1、计算所有人员数量,即人员文档数2、计算部门数量3、计算BuMen = "开发部"的人员数量解答:1、ItemNum := 2; 列数,因为此列显示所有人员ViemName := "视图名称";ServerName := "服务器名称";DbName := "数原创 2008-12-17 00:29:00 · 384 阅读 · 0 评论 -
删除多余文档
操作按钮:Sub Initialize Dim ss As New notessession Dim db As notesdatabase Set db = ss.currentdatabase Dim vi As notesview Set vi = db.getview("viewname") 获得视图 Dim doc As notesdocum转载 2008-12-17 00:35:00 · 335 阅读 · 0 评论 -
实现两个数据库间的数据追加
REM 本程序可以放在数据库A的表单TEST1中的操作或postsave保存事件中dim uiw as new notesuiworkspacedim uidoc as notesdocumentset uidoc = uiw.currentdocumentdim doc as notesdocumentset doc = uidoc.document 获得当前文档dim ss as new转载 2008-12-17 00:39:00 · 794 阅读 · 0 评论 -
文档自动生成文号
Function GetFileCode(strProfile As String ,YM As String) As String Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase Dim ProfileDoc As NotesDocument 配置表 Set ProfileDoc原创 2008-12-17 16:16:00 · 803 阅读 · 0 评论