Domino 9 und frühere Versionen > Entwicklung

db.search Problem

(1/6) > >>

skywook:
Hallo,
folgende Script gibt mir immer 0 Dokumente zurück. Wo habe ich denn den Fehler? Für eure Hilfe wäre ich sehr dankbar.

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As notesdocument
   Dim dc As NotesDocumentCollection
   
   Dim uiw As New NotesUIWorkspace
   Dim uidoc As notesuidocument
   Dim feld1 As String
   
   Set uidoc = uiw.CurrentDocument
   
   feld1 = uidoc.fieldGetText("AKundenzuordnung")
      
   If  uidoc.fieldGetText("KZ") = "" Then
      KdZuord$ = {Zuordnung="} + feld1 + {"}
   End If
   
   Set db = s.CurrentDatabase
   Dim vs As notesviewentrycollection
   Dim folderview As notesview
   Set folderview = db.GetView("SucheDaten")
   Set vs = folderview.AllEntries
   Call vs.RemoveAllFromFolder( "SucheDaten" )
   
   
   Set dc = db.Search( kdZuord$, Nothing, 0 )
   
   Messagebox dc.Count & " gefunden"
   
   Call dc.PutAllInFolder("SucheDaten")
End Sub

Glombi:
Füge mal vor dem db.Search ein

Msgbox kdZuord$

ein, um den Suchstring zu kontrollieren.

Andreas

skywook:
Die Box gibt mir einen leeren Suchstring zurück.

klaussal:
Und was sagt uns das jetzt ?

Thomas Schulte:
Das sag uns Herr Lehrer  ;D das kdzuord$ dummerweise keinen Wert hat und folglich die Suche auch nix zurückliefern kann.

Navigation

[0] Themen-Index

[#] Nächste Seite