Domino 9 und frühere Versionen > ND6: Entwicklung

LotusScript + HTML + dynamische Tabelle

(1/5) > >>

sja:
Hallo @All,

werde sehr dankbar für einen Rat.
In einer Datenbank soll ein Agent laufen, der die Email an bestimmte User generiert und die Email solle dynamische Tabelle erhalten. Die Tabelle soll eine Coollektion von Dokumenten aus der Datenbank anzeigen, damit meine ich die Spalten, wo die Werte von bestimmten Feldern aus dem Dokument und in einer von Spalten die Verknüpfung zur Dokument angezeigen sollen.

Als erste Möglichkeit sehe ich das NotesRichTextTable class. Habe noch nie gemacht und möchte ausprobieren

Ausserdem  überlege ich die zweite Möglichkeit, ob man kann eine Tabelle mit HTML-Code erstellen. Wenn ich das richtig verstehe kann man mit
    ...
  Dim richText As New NotesRichTextItem(doc, "Body")
  richStyle.PassThruHTML = True
und dann
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText("<table>")

dann in einer Schleife auch mit Call richText.AppendText

<tr diverse Optionen...>         Start neue Zeile
<td diverse Optionen...>         Start neue Spalte in neuer Zeile
Hier steht der Inhalte der 1.ten Spalte
</td>               Ende neue Spalte in Zeile
<td diverse Optionen...>      Start neue Spalte in neuer Zeile
Hier steht der Inhalte der 2.ten Spalte
</td>               Ende neue Spalte in Zeile
</tr>               Ende neue Zeile
...
Call richText.AppendText("</ table>")


eine dynamische Tabelle generieren.

Möchte gerne wissen, ob die zweite Variante überhaupt möglich ist, oder verstehe ich das alles falsch.
Wenn jemand hat eine Erfahrung mit HTML in LotusScript, wäre sehr nett, wenn es mitgeteilt würde.

Vielen Dank schon voraus für jeden Rat, Typ etc.

Schöne Gruesse
Sofia

flaite:
Ich glaub nicht, dass das so eine gute Idee ist, v.a. wenn das komplexeres HTML sein soll.
Wie jede GUI-Library, die ich kenne, sind die Html Fähigkeiten der Notes Richtext Klasse beschränkt (ist bei swing.text.html aber auch nicht besser).

Es müsste eine bessere Lösung geben, ich weiss aber nicht wie.

Axel

sja:
Hallo Axel,

danke Dir für Hilfe.

Dann fange ich  mit NotesRichTextTable class an.
Da die beide Richtungen sind für mich neue Gebite, wusste ich nicht mit welcher anzufangen, deshalb möchte ich gerne hörwn, was die erfahrene Leute dazu sagen

Noch Mal vielen Dank.

Schöne Gruesse
Sofia

machineslave:
Hallo Sofia,

ich habe sowas schonmal gemacht. Ein Agent sendet eine Mail mit einer Tabelle an einen User. Vielleicht hilft Dir dieser Code Schnipsel weiter (Tabelle mit 4 Spalten):


Dim rtItem as NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Set rtnav = rtItem.CreateNavigator
Set doc = view.getFirstDocument

While not (doc is Nothing)
      
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
   
   Call rtItem.BeginInsert(rtnav)
   Call rtItem.AppendText(doc.Feld1(0))
   Call rtItem.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
   
   Call rtItem.BeginInsert(rtnav)
   Call rtItem.AppendText(doc.Feld2(0))
   Call rtItem.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
   
   Call rtItem.BeginInsert(rtnav)
   Call rtItem.AppendText(doc.Feld3(0))
        Call rtItem.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
      
   Call rtItem.BeginInsert(rtnav)
   Call rtItem.AppendText(doc.Feld4(0))
   Call rtItem.EndInsert

   Set doc = view.getNextDocument(doc)
Wend

Gruß

Stefan

sja:
Hallo Stefan,

es ist sehr nett, dass Du hier Deine Code zur Verfügung stellst.

Es ist immer schwer was neues anzufangen und solche Bsp. ist schon reiche Hilfe. Ich probiere es.

Ich habe mir auch schon das
http://joelitton.net/A559B2/home.nsf/plinks/JLIN-677398
angeschaut. Für einen Anfang relativ kompliziert.
Also, ich habe jetzt was damit zu tun.
Die Ergebnisse teile ich mit.

Danke schön und viele Gruesse
Sofia

Navigation

[0] Themen-Index

[#] Nächste Seite