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

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 22 мар 2006.

  1. fedotxxl

    fedotxxl Well-Known Member

    Репутация:
    0
    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Добивает иногда редактировать 10-20 представлений для того, чтобы изменить формулу отбора или же один столбец....
     
  2. Гость

    Репутация:
    0
    Кажется в 6 и выше есть такая возможность.
    Посмотри в хелпе про NotesView и SelectionFormula.
     
  3. nor

    nor Гость

    Репутация:
    0
    А кому сейчас легко?
     
  4. fedotxxl

    fedotxxl Well-Known Member

    Репутация:
    0
    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Проблему решил - notesview. Отстался последний вопрос - как автоматически создавать список имен представлений. Чтобы вибрать из списка, а не вписывать руками?
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesDatabase.Views
     
  6. fedotxxl

    fedotxxl Well-Known Member

    Репутация:
    0
    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Остается последний вопрос - агента, который бы редактировал представления никто ещё не создал? )
     
  7. Wanderer

    Wanderer Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    23 мар 2006
    Сообщения:
    390
    Симпатии:
    15
    Если не трудно, можно чуток поподробнее: каким образом можно отредактировать сразу несколько представлений по своему шаблону? Скажем, в 10ти представлениях нужно добавить новую колонку со своей формулой. Что делать?
     
  8. Гость

    Репутация:
    0
    Посмотри в хелпе про NotesView. :blink:

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

    Код (Text):
    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
     
  9. Wanderer

    Wanderer Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    23 мар 2006
    Сообщения:
    390
    Симпатии:
    15
    Юлия, благодарю! Уже хоть что-то. :blink: Разберусь.
     
  10. fedotxxl

    fedotxxl Well-Known Member

    Репутация:
    0
    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Гм... в классе ViewColumn одни свойства. Никто не знает, можно ли редактировать свойства столбца при помощи них? А то в хелпе только GET, но нигде нет SET
     
  11. Гость

    Репутация:
    0
    Для: fedotxxl

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

    Код (Text):
    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
     
Загрузка...

Поделиться этой страницей