标题：代码写法问题

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

Next

错哪儿了

如果条件类似“语文顺序=2000“的话：
 
Dim tj2 As Double = Datatables("学业考试成绩").Compute("Sum(" & bm & ")",  bm & "顺序 = 2000")