Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: CLI_Andreas_Schmidt am 29.08.06 - 11:42:53

Titel: Spaltenbreite einer Tabelle festlegen.
Beitrag von: CLI_Andreas_Schmidt am 29.08.06 - 11:42:53

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

Titel: Re: Spaltenbreite einer Tabelle festlegen.
Beitrag von: tks am 29.08.06 - 14:49:28

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

Titel: Re: Spaltenbreite einer Tabelle festlegen.
Beitrag von: LN4ever am 30.08.06 - 21:41:09

Fehlt da evtl ein INCLUDE der Notes-Konstanten ?

Titel: Re: Spaltenbreite einer Tabelle festlegen.
Beitrag von: CLI_Andreas_Schmidt am 31.08.06 - 11:29:15

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.

Titel: Re: Spaltenbreite einer Tabelle festlegen.
Beitrag von: OBI_S am 12.02.09 - 10:31:29

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.