- 博客(5)
- 资源 (5)
- 收藏
- 关注
原创 文档自动生成文号
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
807
转载 实现两个数据库间的数据追加
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
799
转载 删除多余文档
操作按钮: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
340
原创 计算视图文档数
条件:视图RenYuan,第一类:排序分类BuMen,第二列:XingMing问题:1、计算所有人员数量,即人员文档数2、计算部门数量3、计算BuMen = "开发部"的人员数量解答:1、ItemNum := 2; 列数,因为此列显示所有人员ViemName := "视图名称";ServerName := "服务器名称";DbName := "数
2008-12-17 00:29:00
387
原创 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
555
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人