Wie kann ich ein Date in einem Array in GetAllEntriesByKey verwenden?

Question

Ich versuche, den aktuellen Tag in GetAllEntriesByKey zu verwenden, indem ein Array übergeben. Das Array so sieht weit wie diese

Dim keyarray(2) As Variant  
keyarray(0) = "FF Thompson ADT"  
Set keyarray(1) = dateTime  

Das möchte ich sagen,

Set vc = view.GetAllEntriesByKey(keyarray, False)  

Hier ist eine Reihe von, wie es aussieht, wenn es funktioniert. Das Testmittel druckt csv in einer E-Mail.

FF Thompson ADT, 03.02 / 2009,11: 45: 02.00, 0,6,0, 00: 00: 04,5400,4

Ich kann nicht scheinen, einen aktuellen Tag Datums- und Uhrzeit zu übergeben, die laufen. Ich kann die Datums- und Uhrzeit manuell in der Erklärung festgelegt und es funktioniert. Ich denke, es ist, weil es versucht, auch die Zeit zu vertreiben, aber ich weiß es nicht. Ich habe drei Möglichkeiten versucht, und es sagt ungültigen Schlüssel-Wert-Typ.

Dim dateTime As New NotesDateTime("")
Call dateTime.LSLocalTime = Now
...
keyarray(1) = dateTime.Dateonly

Dim dateTime As New NotesDateTime("")
Call dateTime.SetNow
...
keyarray(1) = dateTime.Dateonly

Dim dateTime As New NotesDateTime("Today")
...
keyarray(1) = dateTime.Dateonly

Ich weiß nicht, ob dies sinnvoll ist, aber wir lesen Bewerten über hier .

Was ich versuche letztlich zu tun ist, GetFirstEntry für „FF Thompson ADT“ für die jüngsten Tag Einträge vorhanden sind. Ich versuche auch vor, dass das gleiche für den Tag zu tun. Ich versuche, beide Tage für die Dateien verarbeitet (die Nummer 6) zusammenzufassen und Fehler (die null) für den letzten Tag so etwas wie dieses verwenden. Ich brauche es zu zwicken, damit er die Dateien verarbeitet und Fehler für Einträge gefunden werden, aber ich habe dort nicht bekommen sollte aber tun können. Ich versuche auch gerade das letzte Datum, Zeit Wert für den Vorschub dh „FF Thompson ADT“ zu finden.

Set entry = vc.GetFirstEntry
filesprocessed = 0
Dim errors, errortotal As Integer
errors = 0
errorstotal = 0
While Not entry Is Nothing
  rowval = 0
  errors = 0
  Forall colval In entry.ColumnValues
    If rowval > 0 Then
      errors = Cint(colval)
    Else
      rowval = Cint(colval)
    End If
  End Forall
  filesprocessed = filesprocessed + rowval
  errorstotal = errorstotal + errors
  Set entry = vc.GetNextEntry(entry)
Wend

Vielen Dank für jede Hilfe oder Anregungen. Sie werden sehr geschätzt.

Answer 1

Hier ist eine Antwort, die ich gefunden

Dim todaysdate As New NotesDateTime("Today")
Dim dateTime As New NotesDateTime(todaysdate.DateOnly)

Dim keyarray(1) As Variant keyarray(0) = feedname
Set keyarray(1) = dateTime 

Set vc = view.GetAllEntriesByKey(keyarray, False)

Answer 2

Ich habe nur die GetAllEntriesByKey Methode mit einem Array von Strings. Ich habe noch nie Mischtypen ausprobiert. Aber unter der Annahme unterschiedliche Typen sind für diese Methode gültig ist, das Problem in der Differenz zwischen Datetime-Typen in Notes liegen könnte. Es gibt einen LS Datetime-Typ-Kern und dann gibt es ein NotesDateTime Objekt. Ich wette, die Ansicht eine Datumsspalte der Ansicht der Kerndatetime-Typen gemacht werden, und so scheitert es, wenn Sie den NotesDateTime Typen übergeben.

Aber das Problem beiseite, ist mein Vorschlag, eine Ansicht zu erstellen, die die Spalten Sie zugreifen möchten, und legen Sie die Sortierreihenfolge der ersten Spalte (mit FF Thompson ADT) auf asc, stellen Sie dann die zweite Spalte mit Ihren Daten zu abw. Anschließend können Sie die Ansicht Einträge in der Reihenfolge zugreifen Sie wollen, mit dem neuesten ersten, zweiten jüngsten zweiten usw.

Wenn durch Zufall die GetAllEntriesByKey Methode, die Dokumente aus, um zurück (ich vergessen, wenn es um Garantien), ich weiß, ich habe dies getan, bevor die NotesViewNavigator-Klasse. Es ist auf jeden Fall eine alternative Art und Weise, ohne Notwendigkeit zu tun GetAllEntriesByKey mit dem Datum Taste aufrufen.