Domino 9 und frühere Versionen > Entwicklung

ich kann in einem Feld (Mehrfachwerte) nichts abspeichern

<< < (2/2)

sculer:

--- Zitat --- Ist für das LS-Modul Option Declare gesetzt ?
--- Ende Zitat ---
dies sagt mir nichts!

nun zum Code:

--- Code: --- Dim uidoc As notesuidocument
Dim doc As Notesdocument
Dim s As NotesSession
Dim ws As NotesUiWorkspace
Set ws=New NotesUiWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Dim neu As String, vorhandene As String, links As String, rechts As String, letztesWortLinks As String, erstesWortRechts As String
Dim neuerString As String
Dim Array1() As String
Dim Arraystelle As Integer
Arraystelle=0

Set item = doc.getfirstitem("hinzufuegen")
Set item2 = doc.getfirstitem("mitbewerber")
neu=item.text
vorhandene=item2.text
If neu =""Then
Msgbox "Sie haben nichts eingetragen"
Exit Sub
End If
If vorhandene="" Then
doc.mitbewerber=neu
doc.hinzufuegen=""
Else
links=""
rechts=vorhandene
Call Sortieren(links,rechts, neu,arraystelle,array1())

End If


Call doc.Save(True,False)

--- Ende Code ---


hier der Code von dem Sortieren:

--- Code: ---Sub Sortieren (links As String, rechts As String, neu As String,arraystelle As Integer,Array1 () As String)
If rechts="" Then
Goto neuerEintrag
End If
vergleich$=Strleftback(rechts,";")
If vergleich$=""Then
vergleich$=rechts
End If


If vergleich$=neu Then
Msgbox "Der Mitbewerber existiert bereits!"
Exit Sub
End If

If vergleich$>neu Then
If neu="" Then
Goto RestArrayErstellen
Else
Goto neuerEintrag
End If

Else
RestArrayErstellen:
'weiter Suchen
Redim Preserve Array1(arraystelle) As String
Array1(arraystelle)=vergleich$
If links="" Then
links=vergleich$
Else
links=links+", "+vergleich$
End If

rechts=Strrightback(rechts,";")
If rechts="" Then
Goto ArrayKomplett
End If
arraystelle=arraystelle+1
Call Sortieren (links,rechts,neu,arraystelle,array1())
Exit Sub
End If

Exit Sub
neuerEintrag:

Redim Preserve Array1(arraystelle) As String
Array1(arraystelle)=neu
neu=""
arraystelle=arraystelle+1
Goto RestArrayErstellen
ArrayKomplett:
doc.mitbewerber=Array1()
doc.hinzufuegen=""

End Sub

--- Ende Code ---

Für Verbesserung bin ich auch offen!!

mfg
sculer

koehlerbv:
Deiner Sub ist doc nicht bekannt - Du deklarierst es nirgends ! Entweder deklarierst Du doc global, oder Du übergibst der Sub Sortieren das NotesDocument durch einen weiteren Parameter.

Bernhard

sculer:
stimmt, guter Hinweis!!

umi:
Kristallkugeln funktionieren doch manchmal....    ;D

Gandhi:
Noch zu option declare:
Sehr nützlich und erspart einem oft viel Ärger, weshalb es in allen meinen Scripten steht.
Diese Option verhindert, dass Variablen verwendet werden, die vorher nicht deklariert wurden (gibt dann eine Fehlermeldung). Auf die Weise wird man zeitig auf Tippfehler in Variablennamen aufmerksam gemacht und sucht sich keinen Wolf.

Navigation

[0] Themen-Index

[*] Vorherige Sete