Compare ???

[shiraz]

Hi Leute,
warum "Ucase(Assi) = Ucase(ListMember)" in mein script funkt net?

......

   Set db =Session.CurrentDataBase
   
   Set profildoc = db.GetProfileDocument("Vorgaben")
   For k = 0 To Ubound(profildoc.P_Secretary)
      Set View = db.GetView("Wiedervorlage")   
      Set doc = view.GetFirstDocument
      Assi = doc.P_Secretary(0)
      ListMember = profildoc.P_Secretary(k)
      While Not Doc Is Nothing
         If Ucase(Assi) = Ucase(ListMember) Then
            
            Set item = doc.GetFirstItem( "Wvtermin_Date" )
            .....
......

profildoc.P_Secretary ist ein Feld mit mehrere Einträge
doc.P_Secretary ist ein feld mit 1 Eintrag


dnake

[koehlerbv]

Ein paar mehr Erläuterungen wären gar nicht so schlecht ... Fehlermeldung ?

Der Code hat ein paar logische Ungereimheiten:
view wird in der Schleife instantiiert. Das ist unnötig.
Nach zwei Bezügen auf doc wird gefragt, ob doc eventuell Nothing ist - zu dem Zeitpunkt ist aber der Krieg längst vorbei !

Bernhard

[Glombi]

Was steht denn so in den Feldern drin? Common Name, Abbreviated oder Canonicalized?
Was sagt der Debugger?

[shiraz]

hi,
die Felder sind vom Typ Text und Textliste

debuger gibt keine Fehlermeldung zurück!
Die beide werte sehen identisch aus ("STRING") aber das Ergebnis ist false.

Ich will per agnet alle wiedervorlagen von versch. Personen finden, und per Person (nur) ein Mail mit alle Wiedervorlagen senden.

Alle Personen findet man in der Vorlage!
Pro Dokument gibt es nur ein Bearbeiter!