Dialogbox

Hallo zusammen,

ich habe ein Problem mit einer Maske die in einer Dialogbox angezeigt werden soll.

1. Zum einem muss ich in einer Ansicht immer auf einem Document stehen, um meine Suchmaske zu öffnen.

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace

Call ws.DialogBox _
( "suchmaske")
End Sub

2. Ich habe ein Feld in dem meine Suchergebnisse einigermaßen tabellarisch angezigt werden sollen. Leider erfolgt immer bei 15 cm ein Zeilenumbruch. Eingestellt ist dieses aber nirgends

z.B.:

Projektnr Titel Status Auftraggeber Erstellt am Problemnr

905 Email-Adressbuch für ÖA abgeschlossen xxxxxxxxx
19.05.2009

1285 DB Terminkalender - Aktualisierung "Einladungsantwort"
abgeschlossen xxxxxx 19.05.2009

Wie kann ich es erreichen, dass meine Ergebnisse ordentlich untereinander dargestellt werden ?

mfg
Lapfandi

1. Die Dialogbox wird über ein Button in einer Ansicht aufgerufen.

2. Das Feld Suchergebnis wird so gefüllt

If tmpsuchabtlg = "Alle" Then

If tmpsuchkstvon = "Alle" And tmpsuchkstbis="Alle" And tmpsuchkategorie ="" And tmpsuchunterkategorie="" And tmpsuchabnahmedatvon="" And tmpsuchabnahmedatbis ="" Then

Set doc=suchalleview.GetFirstDocument()
If doc Is Nothing Then
Msgbox("Keine Datensätze vorhanden !"),16,"Informatuion"
Call uidoc.FieldSetText("suchabtlg","Alle")
Call uidoc.FieldSetText("suchkostenstellevon","Alle")
Call uidoc.FieldSetText("suchkostenstellebis","Alle")
Call uidoc.FieldSetText("suchkategorie","")
Call uidoc.FieldSetText("suchunterkategorie","")
Goto Ende
End If

Call rtitem.AppendText("Projektnr Titel Status Auftraggeber Erstellt am Problemnr")
Call rtitem.AddNewLine(2)

While Not(doc Is Nothing)
tmpabtleiter=doc.GetItemValue("Abteilungsleiter")(0)
tmpdatum=doc.GetItemValue("Erstelldat")(0)
tmpkst=doc.GetItemValue("Kostenstelle")(0)
tmpproblennr=doc.GetItemValue("Problemnummer")(0)tmpkategorie=doc.GetItemValue("Kategorie")(0)
tmpunterkategorie=doc.GetItemValue("Unterkategorie")(0)
tmpprojektabnahme=doc.GetItemValue("Projektabnahme")(0)

Call rtitem.AppendText (doc.Projektnummer(0)+" ")
Call rtitem.AppendText( doc.Titel(0)+" ")
Call rtitem.AppendText( doc.statusedv(0)+" ")
Call rtitem.AppendText(extractkzvn(tmpabtleiter)+" ")
Call rtitem.AppendText(extractdatum(tmpdatum)+" ")
Call rtitem.AppendText(tmpproblennr)
Call rtitem.AddNewline(2)
Set doc=suchalleview.GetNextDocument(doc)
Wend
Call uidoc.FieldAppendText("suchergebnis",rtitem.values)
End If

Das Feld ist vonm Typ Richtext. Typ Text funktioniert auch nicht
Auch wenn ich die Platzhalter +" " weglasse passt es nicht in eine Reihe. Eigentlich reicht der Platz

Die Zeilenumbrüche, beziehen die sich auf das Feld "suchergebnis" oder die Felder aus der Collection ?.

In den Feldeigenschjften von Suchergebnis habe ich nichts mit Zeilenumbrüchen gefunden

Habe es auch schon mit Trim versucht,

Call rtitem.AppendText(Trim(doc.Titel(0))+" "), brachte auch nichts

Sorry das verstehe ich nicht.

Habe in der Designerhilfe nur das gefunden.

Replace(sourceArray, findArray, replacementArray [, start [, count [, compMethod]]])

Nach was muss ich suchen ? nach CHR(13) für Zeilenumbruch ?

Habe mir die Doks mal angeschaut. Es sid keine Zeilenumbrüche vorhanden.

Mein Chef will das alle Dokus in einem Feld untereineinder
dargestellt werden. Dieses Feld soll sich unterhalb der Eingabefelder fürs suchen befinden. Nicht in einem zusätzli. Fenster

Gibt es diese Möglichkeit auch für Script ?

@ReplaceSubString(rtitem.values ;@Newline;" ")

Mein Versuch

liste2=@Evaluate(@ReplaceSubString(rtitem.values ;@Newline;" "))

funktioniert nicht

Hat funktioniert !

Vielen Dank
Lapfandi