<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[samuce的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/samuce</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; samuce]]></copyright><item><title><![CDATA[文档自动生成文号]]></title><link>https://blog.youkuaiyun.com/samuce/article/details/3540605</link><guid>https://blog.youkuaiyun.com/samuce/article/details/3540605</guid><author>samuce</author><pubDate>Wed, 17 Dec 2008 16:16:00 +0800</pubDate><description><![CDATA[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 ]]></description><category></category></item><item><title><![CDATA[实现两个数据库间的数据追加]]></title><link>https://blog.youkuaiyun.com/samuce/article/details/3534795</link><guid>https://blog.youkuaiyun.com/samuce/article/details/3534795</guid><author>samuce</author><pubDate>Wed, 17 Dec 2008 00:39:00 +0800</pubDate><description><![CDATA[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]]></description><category></category></item><item><title><![CDATA[删除多余文档]]></title><link>https://blog.youkuaiyun.com/samuce/article/details/3534790</link><guid>https://blog.youkuaiyun.com/samuce/article/details/3534790</guid><author>samuce</author><pubDate>Wed, 17 Dec 2008 00:35:00 +0800</pubDate><description><![CDATA[操作按钮：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]]></description><category></category></item><item><title><![CDATA[计算视图文档数]]></title><link>https://blog.youkuaiyun.com/samuce/article/details/3534758</link><guid>https://blog.youkuaiyun.com/samuce/article/details/3534758</guid><author>samuce</author><pubDate>Wed, 17 Dec 2008 00:29:00 +0800</pubDate><description><![CDATA[条件：视图RenYuan,第一类：排序分类BuMen,第二列：XingMing问题：1、计算所有人员数量，即人员文档数2、计算部门数量3、计算BuMen = "开发部"的人员数量解答：1、ItemNum := 2;              列数，因为此列显示所有人员ViemName := "视图名称";ServerName := "服务器名称";DbName := "数]]></description><category></category></item><item><title><![CDATA[Lotus的金额大小写转换]]></title><link>https://blog.youkuaiyun.com/samuce/article/details/3534678</link><guid>https://blog.youkuaiyun.com/samuce/article/details/3534678</guid><author>samuce</author><pubDate>Wed, 17 Dec 2008 00:10:00 +0800</pubDate><description><![CDATA[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]]></description><category></category></item></channel></rss>