Редактирования содержания представлений при помощи

[fedotxxl]

Добивает иногда редактировать 10-20 представлений для того, чтобы изменить формулу отбора или же один столбец....

 

[Guest]

Кажется в 6 и выше есть такая возможность.
Посмотри в хелпе про NotesView и SelectionFormula.

 

[nor]

А кому сейчас легко?

 

[fedotxxl]

Проблему решил - notesview. Отстался последний вопрос - как автоматически создавать список имен представлений. Чтобы вибрать из списка, а не вписывать руками?

 

[Medevic]

notesDatabase.Views

 

[fedotxxl]

Остается последний вопрос - агента, который бы редактировал представления никто ещё не создал? )

 

[Wanderstep]

Добивает иногда редактировать 10-20 представлений для того, чтобы изменить формулу отбора или же один столбец....

Посмотри в хелпе про NotesView и SelectionFormula.

Если не трудно, можно чуток поподробнее: каким образом можно отредактировать сразу несколько представлений по своему шаблону? Скажем, в 10ти представлениях нужно добавить новую колонку со своей формулой. Что делать?

 

[Guest]

Посмотри в хелпе про NotesView. :blink:

Пример из хелпа на добавление нового столбца:

Sub Initialize
Dim s As New NotesSession
Dim col As NotesViewColumn
Set view = s.CurrentDatabase.GetView("By Category")
Set col = view.CreateColumn(view.ColumnCount + 1, _
"Topic 2", _
"Subject2")
Messagebox "Position: " & col.Position & Chr(13) & _
"Title: " & col.Title & Chr(13) & _
"Formula: " & col.Formula,, "New column added"
End Sub

 

[Wanderstep]

Юлия, благодарю! Уже хоть что-то. :blink: Разберусь.

 

[fedotxxl]

Гм... в классе ViewColumn одни свойства. Никто не знает, можно ли редактировать свойства столбца при помощи них? А то в хелпе только GET, но нигде нет SET

 

[Guest]

Для: fedotxxl

Посмотри класс NotesViewColumn.
Вот пример из хелпа о изменении формулы выбранного столбца представления.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewColumn
Dim f As String
Set db = session.CurrentDatabase
Set view = db.GetView("View A")
Set vc = view.Columns(2)
If Not vc.IsFormula Then Exit Sub
If vc.Formula = "@Created" Then
 vc.Formula = "@Modified"
 vc.Title = "Modified"
Else
 vc.Formula = "@Created"
 vc.Title = "Created"
End If
End Sub