Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
Проблему решил - notesview. Отстался последний вопрос - как автоматически создавать список имен представлений. Чтобы вибрать из списка, а не вписывать руками?
Если не трудно, можно чуток поподробнее: каким образом можно отредактировать сразу несколько представлений по своему шаблону? Скажем, в 10ти представлениях нужно добавить новую колонку со своей формулой. Что делать?
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
Гм... в классе ViewColumn одни свойства. Никто не знает, можно ли редактировать свойства столбца при помощи них? А то в хелпе только GET, но нигде нет SET
Посмотри класс 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
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.