Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: JanHoener am 20.02.05 - 11:58:15
-
hallo mal wieder :-)
Folgendes Problem: ich möchte nur Dokumente vergleichend darstellen, die in meiner Ansicht in der ersten Spalte den gleichen Wert und in der zweiten Spalte einen Unterschiedlichen haben.
Mein Code:
Set db = s.CurrentDatabase
Set view = db.GetView("Klangfarbe")
Set vec= view.AllEntries
'Ersten Eintrag im View holen'
Set ve = vec.GetFirstEntry()
While Not ve Is Nothing
'Wert der ersten Spalte holen'
oldValue = ve.ColumnValues(0)
'Nächsten eintrag im View holen'
Set ve = vec.GetNextEntry(ve)
'Wenn es einen nächsten Eintrag gibt
If Not ve Is Nothing Then
newValue = ve.ColumnValues(0)
If newValue = oldValue Then
Set oldDoc = vec.GetPrevEntry(ve).Document
Set newDoc = ve.Document
Ich weiss nicht, wie ich da noch eine zusätzliche Abfrage der zweiten Spalte hineinbekomme. Habe schon viel rumprobiert, kenne mich aber nicht wirklich gut mit LS aus.
Vielen Dank für eure Hilfe....
-
habs hinbekommen.... ;D
-
Hi,
lässt du uns an deiner Lösung teilhaben?
Vielleicht steht irgendwann jemand vor dem gleichen Problem.
Danke.
Axel
-
gerne:
mein neuer code lautet nun?
Set db = s.CurrentDatabase
Set view = db.GetView("Klangfarbe")
Set vec= view.AllEntries
'Ersten Eintrag im View holen'
Set ve = vec.GetFirstEntry()
While Not ve Is Nothing
'Wert der ersten Spalte und der zweiten Spalte holen'
oldValue = ve.ColumnValues(0)
oldValue2 = ve.ColumnValues(1)
'Nächsten eintrag im View holen
Set ve = vec.GetNextEntry(ve)
'Wenn es einen nächsten Eintrag gibt'
If Not ve Is Nothing Then
newValue = ve.ColumnValues(0)
newValue2 = ve.ColumnValues(1)
If newValue = oldValue And newValue2 <> oldValue2 Then
Set oldDoc = vec.GetPrevEntry(ve).Document
Set newDoc = ve.Document