Abfrage in erster und zweiter Spalte

[JanHoener]

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....

[JanHoener]

habs hinbekommen....

[Axel]

Hi,

lässt du uns an deiner Lösung teilhaben?

Vielleicht steht irgendwann jemand vor dem gleichen Problem.

Danke.


Axel

[JanHoener]

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