老师好！下列代码运行报错如下图，是什么原因？
...
Dim b As New CrossTableBuilder("统计表1", DataTables("月度量化积分考核"))
b.HGroups.AddDef("姓名") '添加水平分组
b.VGroups.AddDef("月度") '添加垂直分组
b.Totals.AddDef("总分")
b.Filter = "年度 = '" & e.Form.Controls("ComboBox1").Value & "' And 季度 = '" & e.Form.Controls("ComboBox2").Value & "'"
Tables("季度积分考核公示_Table1").DataSource = b.BuildDataSource()
'新增列
Tables("季度积分考核公示_Table1").DataTable.DataCols.Add("总分", GetType(Double))
Tables("季度积分考核公示_Table1").DataTable.DataCols.Add("平均分", GetType(Double))
'赋值
For Each r As Row In Tables("季度积分考核公示_Table1").Rows
If Tables("季度积分考核公示_Table1").Cols.Count = 3 Then '无月份数据列
r("总分") = 0
ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 4 Then '有1个月份数据列
r("总分") = ("总分_1")
ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 5 Then '有2个月份数据列
r("总分") = ("总分_1") + r("总分_2")
ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 6 Then '有3个月份数据列
r("总分") = ("总分_1") + r("总分_2") + r("总分_3")
End If
r("平均分") = r("总分") / 3
Next
...
此主题相关图片如下：截屏图片.jpg
加好友 
发短信
Post By：2022/9/6 20:49:00 [显示全部帖子]
