如果使用表达式参考:http://www.foxtable.com/webhelp/scr/0602.htm
如果使用代码计算,到表格datacolchanged事件输入以下代码:
If e.DataCol.Name.StartsWith("分") AndAlso e.DataCol.Name <> "分值" Then '如果列名以分开头,并且名称不等于“分值”
Dim sum As Integer
For i As Integer = 1 To 31 '遍历1~31号的分值列
sum = sum + e.DataRow("分" & i) ‘把这列的值加起来
Next
e.DataRow("总分合计") = sum ‘把求和的结果赋值给总计列
End If