Cleric-Lviv
Well-known member
Всем привет!
вопрос состоит вот в чем:
на вю много записей, вю содержит 3 колонки. колонки отвечают за поля "picture_1_5_1" "picture_1_5_2" "picture_1_5_3" которие могут принимать значение "111" "112" "113" "114".
вопрос состоит вот в чем: надобно опредилить количество значений "111" "112" "113" "114" в каждой из колонок . я думаю ето надобно скриптом......
вобщем мой алгоритм таков
вичисляем вю, далее берем первий документ по колонке "5 до 5р" и ищем первое поле "picture_1_5_1" если там значение "111" тогда n1=n1+1 если другое пропускаем..... ход мислей правильний?
Sub Initialize
Dim ses As New NotesSession
Dim ws As NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim column As NotesViewColumn
Dim item As NotesItem
Dim entry As NotesViewEntry
Dim Sentry As Variant
Dim n1 As Integer
n1=0
Set db = ses.CurrentDatabase
Set view = db.GetView("comleted")
Set entry = view.GetEntryByKey("5 до 5р") -----здесь ошибку видает object variable is not set
If entry.IsTotal Then
Sentry = doc.GetItemValue("picture_1_5_1")
Forall m In Sentry
If (m="111") Then
n1=n1+1
End If
End Forall
'If (entry <> "111") Then
'Messagebox "проїхали"
' Else
Messagebox (n1)
End If
End Sub
вопрос состоит вот в чем:
на вю много записей, вю содержит 3 колонки. колонки отвечают за поля "picture_1_5_1" "picture_1_5_2" "picture_1_5_3" которие могут принимать значение "111" "112" "113" "114".
вопрос состоит вот в чем: надобно опредилить количество значений "111" "112" "113" "114" в каждой из колонок . я думаю ето надобно скриптом......
вобщем мой алгоритм таков
вичисляем вю, далее берем первий документ по колонке "5 до 5р" и ищем первое поле "picture_1_5_1" если там значение "111" тогда n1=n1+1 если другое пропускаем..... ход мислей правильний?
Sub Initialize
Dim ses As New NotesSession
Dim ws As NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim column As NotesViewColumn
Dim item As NotesItem
Dim entry As NotesViewEntry
Dim Sentry As Variant
Dim n1 As Integer
n1=0
Set db = ses.CurrentDatabase
Set view = db.GetView("comleted")
Set entry = view.GetEntryByKey("5 до 5р") -----здесь ошибку видает object variable is not set
If entry.IsTotal Then
Sentry = doc.GetItemValue("picture_1_5_1")
Forall m In Sentry
If (m="111") Then
n1=n1+1
End If
End Forall
'If (entry <> "111") Then
'Messagebox "проїхали"
' Else
Messagebox (n1)
End If
End Sub