форма по умолчанию

  • Автор темы areeka
  • Дата начала
A

areeka

Гость
#1
здравствуйте! помогите, пожалуйста:
делаю БД оборудования, пока очень мало понимаю в этом, поэтому за глупость вопросов извиняюсь заранее. в общем есть у меня 3 разных формы для разных типов оборудования со своими полями и к каждой из них по представлению, но по умолчанию устанавливается только одна форма и при создании док-тов из любого представления появляется только она. а мне нужно, чтоб на запрос из разных представлений появлялись соответствующие формы...
у меня на каждой форме есть кнопка с кодом:

КодSub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim vieww As NotesView
Dim item As NotesItem
Dim idFile(34) As Integer
Dim l1,l4 As Integer
Dim s1,s2,s3,s4 As String
Set Session = New NotesSession
Set db=session.CurrentDatabase
Set form=db.GetForm("kran")
Set Vieww = db.GetView("viborkran")
idfile(1)=1
Open "D:\krani\1.txt" For Input As idFile(1)
....
idfile(34)=34
Open "D:\krani\34.txt" For Input As idFile(34)

For j=1 To 34
Set doc =New NotesDocument(db)

Line Input #idFile(j), s1
l1=Len(s1)
s2=Right$(s1,l1-14)
Set item = doc.ReplaceItemValue("naimkr",s2)

...

Line Input #idFile(j), s1
l1=Len(s1)
Set item = doc.ReplaceItemValue("proiz",s1)

Call doc.Save(True,True)
Close idFile(j)
Next j
End Sub
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#2
Между этим Set doc =New NotesDocument(db) и этим Call doc.Save(True,True) нужно указать имя формы:
doc.Form = "Название твоей формы"
 
S

Sandr

Гость
#3
в свойстве представления есть такая штука как form Formula.
Напишите туда имя фоормы, по которой хотите открывать документы в нужном вам представлении... если я правильно понял, что вы хотите из разных представлений открывать документы по разным формам...