1、参考代码
Dim xs = tbl3.compute("sum(箱数)", "订单号 = '" & r("订单号") & "' and 颜色 = '" & r("颜色") & "' and 尺码 = '" & r("尺码") & "' and _sortkey < " & r("_sortkey"))
msgbox(xs+1)
2、类似参考
http://www.foxtable.com/webhelp/scr/1572.htm