Domino 9 und frühere Versionen > ND6: Entwicklung

Spaltenbreite einer Tabelle festlegen.

(1/1)

CLI_Andreas_Schmidt:
Hi @Dev,

habt Ihr mal mit dieser Klasse gearbeitet ? --> kommt aus der Designer Hilfe

Dim styles(1 To 3) As NotesRichTextParagraphStyle
  For i% = 1 To 3 Step 1
    Set styles(i%) = session.CreateRichTextParagraphStyle
    styles(i%).LeftMargin = 0
    styles(i%).FirstLineLeftMargin = 0
    styles(i%).RightMargin = RULER_ONE_INCH * 1.5
  Next
  Call body.AppendTable _
  (rowCount%, columnCount%,, RULER_ONE_INCH * 1.5, styles)

Bei mir kommt sofort die REDBOX und der Client verabschiedet sich. Habe Notes 6.5.4de  --> Der Fehler wird durch die Zeile body.AppendTable... verursacht. Die style-Variable wird sauber gefüllt. Scheint ein Notes Bug zu sein. Schade eigentlich, da die Funktion sehr nett wäre.

Gruss
ASC

tks:
Hi.

Ich arbeite mit dieser Klasse und bei mir funktioniert das einwandfrei, sowohl unter 6.5.1de, 6.5.4, als auch unter 6.5.5.


   '-- Einrichten der Tabellenspalten (Fix)
   Redim rtpstyle(1 To 7)
   
   Set rtpstyle(1) = ses.CreateRichTextParagraphStyle
   rtpstyle(1).LeftMargin = 0
   rtpstyle(1).FirstLineLeftMargin = 0
   rtpstyle(1).RightMargin = RULER_ONE_CENTIMETER * 2
   Set rtpstyle(2) = ses.CreateRichTextParagraphStyle
   rtpstyle(2).LeftMargin = 0
   rtpstyle(2).FirstLineLeftMargin = 0
   rtpstyle(2).RightMargin = RULER_ONE_CENTIMETER * 7
   Set rtpstyle(3) = ses.CreateRichTextParagraphStyle
   rtpstyle(3).LeftMargin = 0
   rtpstyle(3).FirstLineLeftMargin = 0
   rtpstyle(3).RightMargin = RULER_ONE_CENTIMETER * 2
   Set rtpstyle(4) = ses.CreateRichTextParagraphStyle
   rtpstyle(4).LeftMargin = 0
   rtpstyle(4).FirstLineLeftMargin = 0
   rtpstyle(4).RightMargin = RULER_ONE_CENTIMETER * 3
   Set rtpstyle(5) = ses.CreateRichTextParagraphStyle
   rtpstyle(5).LeftMargin = 0
   rtpstyle(5).FirstLineLeftMargin = 0
   rtpstyle(5).RightMargin = RULER_ONE_CENTIMETER * 3
   Set rtpstyle(6) = ses.CreateRichTextParagraphStyle
   rtpstyle(6).LeftMargin = 0
   rtpstyle(6).FirstLineLeftMargin = 0
   rtpstyle(6).RightMargin = RULER_ONE_CENTIMETER * 3
   Set rtpstyle(7) = ses.CreateRichTextParagraphStyle
   rtpstyle(7).LeftMargin = 0
   rtpstyle(7).FirstLineLeftMargin = 0
   rtpstyle(7).RightMargin = RULER_ONE_CENTIMETER * 3
   
   
   columns = 7
   rows = countall * 2
   
   Call rtitem.AppendTable(rows, columns,,,rtpstyle) '-- erzeugen der Tabelle

Gruß

Thomas

LN4ever:
Fehlt da evtl ein INCLUDE der Notes-Konstanten ?

CLI_Andreas_Schmidt:
Ich habe das obrige Beispiel mal ausprobiert und es läuft auch bei mir. Somit steht schon einmal fest, dass es grundsätzlich bei mir kein Bug sein kann. Also muss der Fehler an anderer Stelle zu finden sein.

DANKE für die Hilfe.

OBI_S:
Falls jemand hier mal wieder einschaut - Kein Bug - Es muss für jede Spalte eine Definition vorhanden sein.
D.h. z.B.:

4 Spalten = Dim styles(1 To 4) As NotesRichTextParagraphStyle
Plus 4 mal alles Definieren.

Navigation

[0] Themen-Index