let me := this;
let Rows := unique(('History Hours' order by 'Staff:').'Staff:');
let Cols := unique(('History Hours' order by 'Week:_').'Week:_');
"--------------CSS---------------";
let css := "<style>
table,th, td {
    border:thin solid #a0a0a0;
    border-collapse:collapse;
}
th{
    background-color:#f1f3f4;
    text-align:center;
    padding:0.1em  0.6em;
}
tr:nth-child(odd) {background-color:#e4ebf2;}
td{
    text-align:right;
    padding:0.1em  0.8em;
    font-family:Courier;
}  th:nth-of-type(1) {
    position:sticky;
    overflow-x:auto;
    white-space:nowrap;
    left:-1em;
    text-align:left;
}
.grey {background-color:silver;}
</style>";
"------------Content------------";
let content := "
<table>
<tr>
    <th class ='stop'>Week</th>
" +
    for c in Cols do
        "<td>W" + c + "</td>"
    end +
    "<td>Total</td>
</tr>
" +
    for r in range(0, length(Rows)) do
        "<tr><th>" + item(Rows, r) + "</th>" +
        for c in range(0, length(Cols)) do
            "<td>" +
            sum(me.'History Hours'['Staff:' = item(Rows, r) and 'Week:_' = item(Cols, c)].'Hours:') +
            "</td>"
        end +
        "<td class = 'grey'>" +
        sum(me.'History Hours'['Staff:' = item(Rows, r)].'Hours:') +
        "</td>
        </tr>"
    end +
    "
<tr><th>Total</th>" +
    for c in range(0, length(Cols)) do
        "<td class = 'grey'>" + sum(me.'History Hours'['Week:_' = item(Cols, c)].'Hours:') +
        "</td>"
    end +
    "<td class = 'grey'>" +
    sum(me.'History Hours') +
    "</td></tr>
</table>";
html(css + content)