1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

База коммутатор

Тема в разделе "Lotus - Программирование", создана пользователем -, 23 ноя 2009.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    Создаю новую форму в которую занашу информацию о БД

    Не работают строчки

    Код:
    Call main.ReplaceItemValue( "Forms", db.Forms)
    Поле Forms не получает значения Items БД в чем проблема помогите

    Вот полны

    Код:
    Sub AddDatabase (db As NotesDatabase)
    Dim wspace As New NotesUIWorkspace, uid As NotesUIDocument
    Dim Form As String
    Form = "Database"
    Dim main As notesDocument 
    Dim session As New NotesSession
    Set main = New NotesDocument(session.CurrentDataBase)	 
    main.form = Form	 
    
    Call main.ReplaceItemValue( "ReplicaID", db.ReplicaID) 
    Call main.ReplaceItemValue( "Address", db.FilePath)
    Call main.ReplaceItemValue( "Template",	db.TemplateName) 	
    Call main.ReplaceItemValue( "Forms", db.Forms)
    
    Call main.ReplaceItemValue( "Views",	db.Views) 	
    Call main.ReplaceItemValue( "Agents",	db.Agents) 	
    
    Call main.ReplaceItemValue( "Title",	db.Title) 	
    Call main.ReplaceItemValue( "Categories",	db.Categories) 	
    Call main.ReplaceItemValue( "Design",	db.DesignTemplateName) 	
    Call main.Save( False, False )
    
    End Sub
     
  2. RAJ

    RAJ Well-Known Member

    Репутация:
    0
    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    хелп вам в помощь
    Код:
    Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Forall form In db.Forms
    Messagebox form.Name
    End Forall
    End Sub
     
  3. TIA

    TIA :-)
    Lotus team

    Репутация:
    0
    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    1
    Посмотри в хелпе, какого типа данные возвращают св-ва db.Forms, db.Agents, db.Views. Они возвращают массивы объектов, а не строк.
     
  4. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    9
    И не забыть проверочку на их наличие: If Not Isempty (db.Forms) Then
     
  5. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Репутация:
    0
    Регистрация:
    6 ноя 2007
    Сообщения:
    3.195
    Симпатии:
    24
    оу, еще немного и сюда весь код БР выложут ;)
     
  6. Гость

    Репутация:
    0
    Ну не весь конечно т.к. всего нет, тогдабы не пришлось изобретать. ;) но кусочек я от туда взял.
    Спасибо все разобраля.
     
  7. Akupaka

    Akupaka А че я?.. О.о

    Репутация:
    0
    Регистрация:
    4 окт 2007
    Сообщения:
    3.360
    Симпатии:
    2
    ай-я-яй. и кто же тебе разрешил распространять в сети код коммерческой системы?
    а вдруг тут есть... уши... и кто-то заинтересуется, сотрудники чьей компании распространяют в сети тайную информацию...
    поаккуратнее надо быть ;)
     
Загрузка...
Статус темы:
Закрыта.

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