主题：求table中值的合计

for each r as row in tables("a").rows

for each c as col in tables("a").cols

if c.name <> "color"

sum = sum + r(c.name)

end if

next

next

msgbox(sum)