Hallo,
habe eine Ansicht mit 3 Spalten.
Die Spalte eins enthält den Fahrzeugtyp z.B. Auto,Bus, Motorrad die zweite Spalte enthält eine Kategorie z.B. 1, 2, 3, 4, 5 und die dritte Spalte einen Betrag.
Fahrzeugtyp Kategorie Betrag in Euro
Auto 1 10
Auto 2 20
Bus 1 5
Bus 2 10
Der Benutzer gibt in einer Inputbox den Fahrzeugtyp und die Kategorie ein und ich möchte den Betrag ausgeben lassen.
Dazu habe ich folgenden Code geschrieben
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim viewc As NotesViewEntryCollection
Dim entry As NotesViewEntry
Set db = s.CurrentDatabase
Set view = db.GetView("MeineAnsicht")
Dim FahrTyp As String
Dim Kat As Integer
FahrTyp = Inputbox("Geben Sie den Fahrzeugtyp ein:")
Kat = Inputbox("Geben Sie die Kategorie ein:")
Set viewc = view.GetAllEntriesByKey(FahrTyp)
Set entry = viewc.GetFirstEntry
Do Until entry Is Nothing
Msgbox (entry.ColumnValues(2))
Set entry = viewc.GetNextentry (entry)
Loop
End Sub
Alles anzeigen
Wenn ich nun Auto als Fahrzeugtyp eingebe erhalte ich den jeweiligen Betrag aller Autos. Nun möchte ich aber als weiteres Kriterium die Kategorie mit einbeziehen, d.h wenn ich Fahrzeugtyp Auto eingebe und als Kategorie 2 dann sool 20 ausgegeben werden.
Bin erst beim lernen von LS also bitte um Verständnis
Danke Maria