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