更高效的通用查询方法

2005-03-22 11:57:14 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

医院网络设计（完整文档+思科拓扑图）大家好，我是小华学长，一名计算机领域的博主。经过多年的学习和实践，我积累了丰富的计算机知识和经验，在这里我想与大家分享我的学习心得和技巧，帮助你成为更好的程序员。作为一名计算机博主，我一直专注于编程、算法、软件开发等领域，在这些方面积累了大量的经验。我相信分享是一种双赢的方式，通过分享，我可以帮助他人提升技术水平，同时也能够得到学习交流的机会。在我的文章中，你将会看到我对于各种编程语言、开发工具以及常见问题的解析和分析。我会结合自己的实际项目经验，为你提供实用的解决方案和优化技巧。阅读详情

因为文档少，所以采用了以下方法：
Function GetDocUnidByOneStrField(ViewName As String,FieldName As String,FieldVal As String) As String
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim TmpStr As Variant

Set session= New NotesSession
Set db = session.CurrentDatabase '(session、db是全局的，此处为示例代码)
Set view = db.GetView( ViewName )
GetDocUnidByOneField=""
Set doc = view.GetFirstDocument()

While Not(doc Is Nothing)
TmpStr = doc.GetItemValue("""" & FieldName & """")(0)
If FieldVal =TmpStr Then
GetDocUnidByOneField=doc.UniversalID
Goto last
End If

Set doc = view.GetNextDocument(doc)
Wend
last:
Set view = Nothing
Set doc = Nothing
End Function

说明：符合域值条件的文档只取第一条

问题：
1：TmpStr返回为空，但对应文档中的数据是确实存在的。
2：效率低下，有没有更好的办法？不采用GetDocumentByKey原因是因为域太多，不可能每个都建索引。

谢谢！

...全文