- 博客(4)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 添加服务器链接
Sub Click(Source As Button) On Error Goto ef Dim session As New NotesSession Dim dbNAB As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument, docTemp As NotesDocument Dim strSear
2007-09-30 08:48:00
781
原创 Lotus附件判空问题
Call uidoc.save Set rtitem = doc.GetFirstItem( "rhtAttachment" ) If ( rtitem.Type = RICHTEXT ) Then If Isarray(rtitem.EmbeddedObjects) Then Fora
2007-09-26 09:07:00
1373
原创 Lotus 技术点之导入
a) 从文本导入Sub Initialize On Error Goto UnknowError Msgbox "开始导入" Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView
2007-09-12 10:24:00
2768
原创 Lotus 技术点之导出
a) 导出到excel中Sub Click(Source As Button)Dim s As New notessessionDim db As notesdatabaseDim view As notesviewDim dc As notesdocumentcollectionDim doc As notesdocumentDim vcols As
2007-09-12 10:18:00
1404
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人