`
minglelui
  • 浏览: 80647 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论
文章列表
Sub CodeShare(Source As Button) Dim sType As String Dim i As Integer sType = "N" If sType = "N" Then For j=0 To 3 Msgbox "N" Gosub lala j = j + 1 Next Else Msgbox "1" Goto lala End If Exit Sub lala: Msgbox "executing" Retur ...

扩展Implode方法

问题描述:Lotuscript中提供的Implode对整数数组进行处理的时候,报错提示“对象不匹配”。 解决办法: Implode对字符串数组进行处理 Function ExtImplode(valueToImplode,Seperator As String) As String '=== Returns the value of the list or array imploded into a single string using separator '--- If not array or list then quit If Not Isarray( valueToImplod ...
Sub Initialize() Dim s As New NotesSession Dim db As NotesDatabase Set db = s.Currentdatabase 'Set db = New NotesDatabase( "YourServer/svr/somewhere", "database.nsf") Call ExtractImageResources( db, "J:\temp" ) End Sub Sub ExtractImageResources(db As NotesDataba ...

Excel编程

xlWorkSheet.Cells(1,iYear).Value = vePOC.ColumnValues(1) xlWorkSheet.Range("A"+Cstr(iYear+1)).Value = vePOC.ColumnValues(1)
http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/ffa23fdf75d6c94585257719006d057c?OpenDocument http://www.notes411.com/dominosource/forum.nsf/0/D3BECAF93ED2D8D980257162005CE7B8!opendocument&keyword=Export%20of%20Multi%20Value%20Fields%20to%20Excel

创建时间域

Dim dt As NotesDateTime Dim dtItem As NotesItem Set dt = New NotesDateTime("2010-01-01") Set dtItem = New NotesItem(doc,"Year","") Set dtItem.DateTimeValue = dt dtItem.IsSummary = True  'display the item value on view
goto可以间接查看视图 按着ctrl+shift,通过goto可以间接查看所有的视图,包括隐藏视图

About response doc

http://www.dominopower.com/issues/issue200201/expand0102003 http://www.notesninjas.com/A555F9/nn.nsf/ByAlias/Unresponse Responses
问题1:notes.ini 参数 JavaUserClasses 的作用是什么? 解答: 如果一个 Java 代理要调用包含本地方法的其他类,必须保证该类是由 JVM 装入的。为了确保这一点,需要把包含本地方法的类的文件名添加到以下参数中: JavaUserClasses=<d ...
我们想通过outlook发送notes文档或数据库的链接应该怎么做呢? 以数据库链接为例: 1 copy as link 2 打开一个 notepad,建立文本文件,粘贴,然后另存为 “ndl”为后缀的文件。 3 打开 outlook客户端软件,插入刚才保存的ndl文件给outlook用户即可。 如果outlook用户客户端安装有notes软件,直接双击这个附档即可。
测试目的:某域值更新后,隐藏条件设置与次域有关的相关域的隐藏立即生效. 'Call uidoc.FieldSetText(strRowNumItm,Cstr(iRowNum)) Call note.ReplaceItemValue(strRowNumItm, iRowNum) Call uidoc.Reload() Call uidoc.Refresh 一句话:尽量使用NotesDocument

Is Not a form

http://www-10.lotus.com/ldd/nd8forum.nsf/DateAllFlatWeb/296ff3f548dd666b852574e3006975f8?OpenDocument
http://www-01.ibm.com/support/docview.wss?rs=475&uid=swg21088892

Java agent

http://space.itpub.net/10114847/

lotus 8.5

http://space.itpub.net/14751907/viewspace-586491
Global site tag (gtag.js) - Google Analytics