以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码写法问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7530)
--  作者：lpxjw_zyl
--  发布时间：2010/7/5 21:49:00
--  代码写法问题

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

Next

错哪儿了
--  作者：狐狸爸爸
--  发布时间：2010/7/5 21:55:00
--  
如果条件类似“语文顺序=2000“的话：
 
Dim tj2 As Double = Datatables("学业考试成绩").Compute("Sum(" & bm & ")",  bm & "顺序 = 2000")