
lotus script 查询视图里面某一列的记录
姓名年龄性别a112mb114fc113md115fe112f我想把性别是m的姓名查找出来,用sql比较好做,但是用到了lotusscript就不太会了,有知道的请帮忙了...
姓名 年龄 性别
a1 12 m
b1 14 f
c1 13 m
d1 15 f
e1 12 f
我想把性别是m的姓名查找出来,用sql比较好做,但是用到了lotus script就不太会了,有知道的请帮忙了!谢谢 展开
a1 12 m
b1 14 f
c1 13 m
d1 15 f
e1 12 f
我想把性别是m的姓名查找出来,用sql比较好做,但是用到了lotus script就不太会了,有知道的请帮忙了!谢谢 展开
1个回答
展开全部
你这个通常的做法是,创建一个视图 比如就叫 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数组中了
其实应该用公式比较容易取
这样就能够直接用视图的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数组中了
其实应该用公式比较容易取
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询