読み込み専用。 ビューの最初の列にあるエントリの数です。
Integer
取得する場合: count% = notesView .TopLevelEntryCount
ビューがカテゴリ別である場合、この数はメインカテゴリの数です。
ビューに合計がある場合、この数には総計が含まれています。
エントリの数が 32,767 を超えたら、このプロパティを Long 型に読み込み、値が負数の場合は 65,536 を加算します。ただし、トップレベルのエントリの数が必ず 65535 以下に維持されるのでない限り、このプロパティを使用することはお勧めしません。エントリの数が 65535 を超えてもエラーはスローされないため、正しい結果であるどうかを知る方法はありません。
以下のコード例に、一般的な手法を示します。この手法は、サイズの上限を大幅に下回るビューにもより効果的です。
Function TopEntryCount(vu As NotesView) As Long
' return the number of top-level entries in a view.
Dim nav As NotesViewNavigator, ent As NotesViewEntry
Set nav = vu.CreateViewNav
Set ent = nav.GetLast
TopEntryCount = Clng(Strtoken(ent.GetPosition("."), ".", 1))
If ent.IsTotal Then
' if the view has a totals row, we might not want to count it.
TopEntryCount = TopEntryCount - 1
End If
End Function