lotus script 查询视图里面某一列的记录

来源：百度知道 编辑：UC知道 时间：2024/05/21 04:02:37
姓名 年龄 性别
a1 12 m
b1 14 f
c1 13 m
d1 15 f
e1 12 f
我想把性别是m的姓名查找出来，用sql比较好做，但是用到了lotus script就不太会了，有知道的请帮忙了！谢谢

你这个通常的做法是，创建一个视图 比如就叫 StaffBySex，让性别在第一列，并排序，性别 姓名 年龄
这样就能够直接用视图的GetAllEntriesByKey

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("StaffBySex")
Set vc = view.GetAllEntriesByKey("m", False)

Dim names as variant,i as integer
Dim entry as NotesViewEntry
i = 0
set entry = vc.GetFirstEntry
do until entry is nothing
redim preserve names(i)
names(i) = entry.ColumnValues(2)
set entry=vc.GetNextEntry(entry)
i = i+1
loop

最后值就在names数组中了

其实应该用公式比较容易取