Hallo Zusammen,
ich bin völlig neu in der IBM-Domino Welt.
Ich hoffe Ihr könnt mir etwas helfen
Ich habe für Notes 2 Ansichten mit Masken gebaut, deren Daten Sehen Wie folgt aus:
Ansicht1:
Besprechungsraum | Zimmernummer |
ARäume | E.101, O.201, D.301 |
BRäume | E.104, E.107, O.202, D.303, D.304 |
CRäume | E.105, E.106 |
Ansicht2:
Wegpunkt | Raumnummer |
P12345 | E.101 |
P23456 | O.202 |
... | ... |
Folgendes möchte ich lösen:
Zimmernummern, die mit Raumnummern übereinstimmen sollen den Wegpunkt ausgeben.
Ich erhalte zwar Treffer, aber nur den letzten Value auch wenn mehrere enthalten sind.
Und wie kann ich bei einem Treffer den Wegpunkt ausgeben und nicht die Raumnummer?
Hoffentlich habe ich nicht zuviel rausgekürzt oder ist es zu umständlich
Code
%REM
Function LeseBesprechungsraeume
%END REM
Function LeseBesprechungsraeume As String
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim view As NotesView
Dim viewMapping As NotesView
Dim doc As NotesDocument
Dim docMapping As NotesDocument
Dim item As NotesItem
Dim item_zimmernummer As NotesItem
Dim item_mapping As NotesItem
Dim id As Integer
Dim zimmerNrOuter As String
Dim raumname As String
Dim zimmernummer As String
Dim pointraueme As String
Dim pointsOuter As String
Dim raumnummer As String
id=1
LeseBesprechungsraeume=""
On Error GoTo Drain
If (db Is Nothing) Then
GoTo drain
End If
Set view=db.Getview("Ansicht1")
If (view Is Nothing) Then
GoTo drain
End If
Set doc=view.Getfirstdocument()
While Not doc Is Nothing
raumname=""
Set item=doc.GetFirstItem("Besprechungsraum")
If Not(item Is Nothing) Then
raumname=item.Values(0)
raumname=raumname+|Besprechungsraum:|+raumname+Chr(13)
End If
zimmernummer=""
Set item_zimmernummer=doc.GetFirstItem("Zimmernummer")
If Not(item_zimmernummer Is Nothing) Then
ForAll refVar3 In item_zimmernummer.Values
zimmernummer=refVar3
End ForAll
zimmerNrOuter=|Zimmernr:|+zimmernummer+Chr(13)
End If
Set viewMapping=db.Getview("Ansicht2")
If (viewMapping Is Nothing) Then
GoTo drain
End If
raumnummer=""
pointraueme=""
Set docMapping=viewMapping.Getfirstdocument()
While Not (docMapping Is Nothing)
Set item_mapping=docMapping.Getfirstitem("Raumnummer")
If Not(item_mapping Is Nothing) Then
raumnummer=item_mapping.Values(0)
If raumnummer = zimmernummer Then
pointraueme=|TREFFER:|+raumnummer+||+Chr(13)
End If
End If
pointsOuter=|Folgende gefunden:|+Chr(13)+pointraueme+Chr(13)
Set docMapping = viewMapping.Getnextdocument(docMapping)
Wend
id=id+1
Set doc=view.Getnextdocument(doc)
Wend
Exit Function
drain:
MessageBox |Agent: LeseBesprechungsraeume - |+Str(Err)
End Function
Alles anzeigen