Domino Code Fragment

Code Name* Dynamic table generation	Date* 09/18/1996	Source (or email address if you prefer)* Jamie Magee IP address:.3.16.66.206
Description* Formula-generated HTML tables are very powerful, extremely fast, and give you a lot of control that even native Domino tables can not provide.	Type* Formula	Categories* List Processing/Sorting, User Interface (Web)

Implementation: Modify constants	Required Client:	Server:
Limitations:	Comments: A Notes list formula generates N rows dynamically, including editable fields and icons. Below is a formula for a 5 column read-only table that generates any number of rows on the fly based on 5 multi-value fields that are assumed to exist elsewhere on the doc. Place the entire formula in a computed Rich Text Field, and put lookup/column formulas, rather than fieldnames, in the COLUMN DATA LISTS section to maximize the potential number of rows in the table. You could change this to do <>5 columns.

Files/Graphics attachments (if applicable): Code:

REM "Jamie.Magee@MartinScott.com";

REM "==== FORMAT SETTINGS ===="; borders := 0; fontsize := "2"; rowalign := "top";

REM "==== COLUMN DATA LISTS ===="; REM "c1..c5 should be assigned the Notes multivalue fields or lookup/column formulas pertaining to the five table columns respectively";

c1 := ItemIDList; c2 := PR_DescList; c3 := PR_Acct1List; c4 := PR_PercentList; c5 := PR_Acct2List;

REM "==== COLUMN ALIGNMENT ===="; a1 := "right"; a2 := "left"; a3 := "left"; a4 := "right"; a5 := "left";

REM "==== COLUMN HEADINGS ===="; h1 := "Line"; h2 := "Item Description"; h3 := "Account 1"; h4 := "%"; h5 := "Account 2";

BoldHeading := 1;

REM "============== DON\'T CHANGE ANYTHING BELOW ==========================";

B1 := @If(BoldHeading=1; ""; ""); B2 := @If(BoldHeading=1; ""; "");

HeadRow := "<TR VALIGN=" + rowalign+ "><TD ALIGN="+ a1+ "> "+ h1+ ""+ "<TD ALIGN="+ a2+ "><CENTER> "+ h2+ "</CENTER><TD ALIGN="+ a3+ "><CENTER> "+ h3+ "</CENTER><TD ALIGN="+ a4+ "> "+ h4+ "<TD ALIGN="+ a5+ "> "+ h5;

RawRow := "<TR VALIGN="+ rowalign+ "><TD ALIGN="+ a1 +"> + c1 +"<TD ALIGN="+ a2 +"> "+ c2 +"<TD ALIGN="+ a3 +"> "+ c3 + "<TD ALIGN =" + a4 +"> 

"+ c4 +"<TD ALIGN=" + a5 +"> "+ c5;

Rows := @Implode(RawRow; @Char(13));

TableTag := "<TABLE"+ @If(borders=1; " BORDER"; "") +">";

Table := TableTag + HeadRow + Rows + "</Table>"; Table