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

fedotxxl

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

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

fedotxxl

Well-Known Member
09.11.2005
614
0
#4
Проблему решил - notesview. Отстался последний вопрос - как автоматически создавать список имен представлений. Чтобы вибрать из списка, а не вписывать руками?
 

fedotxxl

Well-Known Member
09.11.2005
614
0
#6
Остается последний вопрос - агента, который бы редактировал представления никто ещё не создал? )
 

Wanderer

Well-Known Member
Lotus team
23.03.2006
412
19
#7
Добивает иногда редактировать 10-20 представлений для того, чтобы изменить формулу отбора или же один столбец....
Посмотри в хелпе про NotesView и SelectionFormula.
Если не трудно, можно чуток поподробнее: каким образом можно отредактировать сразу несколько представлений по своему шаблону? Скажем, в 10ти представлениях нужно добавить новую колонку со своей формулой. Что делать?
 

Гость
#8
Посмотри в хелпе про 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
 

Wanderer

Well-Known Member
Lotus team
23.03.2006
412
19
#9
Юлия, благодарю! Уже хоть что-то. :blink: Разберусь.
 

fedotxxl

Well-Known Member
09.11.2005
614
0
#10
Гм... в классе ViewColumn одни свойства. Никто не знает, можно ли редактировать свойства столбца при помощи них? А то в хелпе только GET, но нигде нет SET
 

Гость
#11
Для: 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