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

[Guest]

Создаю новую форму в которую занашу информацию о БД

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

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

 

[RAJ]

Создаю новую форму в которую занашу информацию о БД

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

Call main.ReplaceItemValue( "Forms", db.Forms)

Поле Forms не получает значения Items БД в чем проблема помогите

хелп вам в помощь

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

 

[TIA]

Посмотри в хелпе, какого типа данные возвращают св-ва db.Forms, db.Agents, db.Views. Они возвращают массивы объектов, а не строк.

 

[hosm]

И не забыть проверочку на их наличие: If Not Isempty (db.Forms) Then

 

[ToxaRat]

оу, еще немного и сюда весь код БР выложут

 

[Guest]

Ну не весь конечно т.к. всего нет, тогдабы не пришлось изобретать. но кусочек я от туда взял.
Спасибо все разобраля.

 

[Akupaka]

но кусочек я от туда взял

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