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

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

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

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

Код:
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

Well-known member
17.01.2007
440
0
#2
Создаю новую форму в которую занашу информацию о БД

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

Код:
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

:-)
Lotus team
15.05.2009
790
3
#3
Посмотри в хелпе, какого типа данные возвращают св-ва db.Forms, db.Agents, db.Views. Они возвращают массивы объектов, а не строк.
 

hosm

* so what *
18.05.2009
2 442
6
#4
И не забыть проверочку на их наличие: If Not Isempty (db.Forms) Then
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 231
17
#5
оу, еще немного и сюда весь код БР выложут ;)
 
G

Guest

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#7
ай-я-яй. и кто же тебе разрешил распространять в сети код коммерческой системы?
а вдруг тут есть... уши... и кто-то заинтересуется, сотрудники чьей компании распространяют в сети тайную информацию...
поаккуратнее надо быть ;)
 
Статус
Закрыто для дальнейших ответов.