samuce的专栏

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

条件：视图RenYuan,第一类：排序分类BuMen,第二列：XingMing问题：1、计算所有人员数量，即人员文档数2、计算部门数量3、计算BuMen = "开发部"的人员数量解答：1、ItemNum := 2;              列数，因为此列显示所有人员ViemName := "视图名称";ServerName := "服务器名称";DbName := "数

操作按钮：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

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

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