Hallo Ich hab nocheinmal eine Frage.
Wenn ich eine Schleife programmiere und immer ein Feld einlese und dann definiere in welche ich das eingelesen Wieder ausgeben will kann ich ja unter Umstönden eine riesen Ansammlung von schleifen anhäufen. Wie mache ich mir das einfacher??? Ich lasse euch mal ein Beispiel da.
Code
Dim AnfJan As Notesdatetime
Set AnfJan =New NotesDateTime("01/01/08")
Dim AnfFeb As NotesDateTime
Set AnfFeb = New NotesDateTime("01/02/08")
' UND IMMER SO WEITER
Set db =session.CurrentDatabase
Set view = db.GetView("Fehler_ID")
Set doc_temp = view.GetFirstDocument
Set statistik=New Notesdocument(db)
statistik.Form="Profildokument"
statistik.doctype="Profildokument"
Set collection = db.AllDocuments
zaehler = 0
Dim DokDat As Notesdatetime
For a = 1 To collection.Count
Set doc_temp2=collection.GetnthDocument(a)
Set DokDat = New NotesDateTime (doc_temp2.Fehlerdatum(0))
If DokDat.TimeDifference(AnfFeb)< 0 Then
If (doc_temp2.Fehler_Abteilung(0)="EDV") Then
zaehler=zaehler +1
Profildokument.Feldname = zaehler
End If
End If
Next
Alles anzeigen
Diese Schleife prüft die Datenbank ab und sucht nach allen DOkumenten. Diese werden dann nach Datum und nach ihrem Inhalt gezählt und der Zähler wird an das Profildokument übergeben. Nun wenn ichd en weg weiterverfolge kommt da einiges zusammen. aber ich würd das lieber flexibler und näher am Objekt haben. Sprich KÜRZER!.
ich weiß nur nicht wie ichd a am besten vorgehe.
Danke