主题：代码写法问题

Dim bms() As String = {"语文","数学","英语","物理","化学","历史","体育","总分"}
For Each bm As String In bms
Dim tj2 As Double = Datatables("学业考试成绩").Compute("Sum(" & bm & ")", " '" & bm & "' & "顺序" = 2000")

错哪儿了