1.查找出查找内容在多值域中的索引值
getItemIndex(域名,域值,文档)
Public Function getItemIndex(ByVal fieldName As String, ByVal itemVal As Object,
ByVal doctt As NotesDocument) As Integer Dim i As Integer Dim j As Integer Dim item As NotesItem item = doctt.GetFirstItem(fieldName) j = Ubound(item.Values) For i = 0 To j If itemVal = item.Values(i) Then getItemIndex = i Exit Function End If Next getItemIndex = -1 End Function
2.删除多值域中的数据
delItemValues(多值域名,更改的索引值,所在文档对象)
Public Sub delItemValues(ByVal fieldName As String, ByVal index As Integer, ByVal doctt As NotesDocument) Dim i As Integer Dim temp() As Object Dim item As NotesItem item = doctt.GetFirstItem(fieldName) Dim j As Integer j = Ubound(item.values) '----------- If j = 0 Then '当J为0时,即仅有一个值,给予空值即可 Call doctt.ReplaceItemValue(fieldName, "") Exit Sub End If '------------ If Trim(item.Values(0)) = "" Then index = j End If If index > j Then '仍然做为最后一个数据加入 j = j + 1 '索引位仅增加1 index = j '重定义索引位,防止超出范围 End If Redim temp(j-1) As Variant '重定义数组 For i = 0 To index - 1 temp(i) = item.values(i) Next For i = index To j - 1 temp(i) = item.values(i + 1) Next Call doctt.ReplaceItemValue(fieldName, temp) 'End If 'End If End Sub
3.更改多值域中的数据
editItemValues(多值域名,更改的索引值,更改的内容,所在文档对象)
Public Sub editItemValues(ByVal fieldName As String, ByVal index As Integer, ByVal itemVal As Object,
ByVal doctt As NotesDocument) Dim i As Integer Dim temp() As Object Dim item As NotesItem item = doctt.GetFirstItem(fieldName) Dim j As Integer j = Ubound(item.values) If Trim(item.Values(0)) = "" Then index = j End If If index > j Then '仍然做为最后一个数据加入 j = j + 1 '索引位仅增加1 index = j '重定义索引位,防止超出范围 End If Redim temp(j) As Variant '重定义数组 For i = 0 To j If i = index Then temp(i) = itemVal Else temp(i) = item.values(i) End If Next Call doctt.ReplaceItemValue(fieldName, temp) 'End If 'End If End Sub
发表评论
-
Notes 和 Domino 已知限制
2008-01-13 10:11 808Notes 和 Domino 已知限制 功能测试 限制数据库的 ... -
TinyMCE与Domino集成
2008-02-03 12:27 805TinyMCE与Domino集成一:TinyMCE简介 Tin ... -
domino server端的Notes.ini详解
2008-02-19 08:46 1073Web代理监控与调式问题 Web代理在服务器的执行优先 ... -
Lotus开发之Lotus Notes中域的验证
2008-03-10 11:41 1335一:介绍 Lotus中的域主要有以下的类型:文本,日 ... -
以Ajax方式显示Lotus Notes视图的javasript类库----NotesView2
2008-03-28 20:52 729一:简介 NotesView2是一个使用javascript开 ... -
[转载]资深程序员点评当前某些对Lotus Domino 的不实评论
2008-04-09 13:30 1043实现机关办公自动化工作需要计算机技术的支持 ... -
Undokumentierte @Formeln/LotusScript im Lotus Notes Client/Server
2008-05-16 17:29 1241Erstellung von Replik-IDs mitt ... -
操作Domino数据库的设计元素
2008-05-27 15:46 1043在Domino的数据库中有数据文档和设计文档两种文档。设计文档 ... -
开发可复用的从Domino中导出数据到Excel的类
2008-08-08 16:13 1042在domino开发中我们不可避免的要和报表打交道,一般就是生成 ... -
Lotus开发基本性能优化
2008-08-09 14:31 516一:一般的原则1. 视图 ... -
如何开发Domino中的WebService
2008-11-26 21:45 1231在domino中写webservice可以 ... -
关于Domino数据库的软删除
2009-02-03 20:40 932在Domino的数据库属性的 “高级” 附签(选择文件-> ... -
Lotus开发性能优化
2009-06-23 21:30 1010之前也总结过一篇关于 ...
相关推荐
求函数值域的常用方法
专题:求函数值域的常用方法及值域的应用.pdf
高中数学讲义微专题27 三角函数的值域.pdf
高中函数值域求法大全.docx
高中函数值域求法大全.doc
函数之复合函数之求最值、值域.pdf
专题-高中函数值域的求法(讲义与练习)+.pdf
高中数学函数定义域与值域问题详解.ppt
常见函数解析式、定义域、值域的求法总结.pdf
函数的定义域和值域.pdf
分数函数的值域.pdf
函数求值域方法之值域换元法.doc
函数求值域方法之值域换元法.docx
[整理]高中函数值域的求法.doc
函数的值域与最值
函数定义域值域求法(全十一种)[整理].pdf
高中数学函数定义域、值域求法总结.doc
分式函数值域求法分类导析.pdf