I don't think you can do it directly with Table Box. You could do the coloring by datatable (example of this below) or col box
Names Default To Here(1);
dt = New Table("Untitled",
Add Rows(4),
Compress File When Saved(1),
New Column("Mountain", Character, "Nominal", Color Cells({44, {2, 4}}), Set Values({"K2", "Delphi", "Kilimanjaro", "Grand Teton"})),
New Column("Elevation (meters)", Numeric, "Continuous", Format("Best", 12), Color Cells({44, {2, 4}}), Set Values([8611, 681, 5895, 4199]))
);
nw = New Window("",
dt << get as report
);
-Jarmo