参考:
http://www.foxtable.com/webhelp/topics/1472.htm,加多一个日期条件即可
比如统计表的DataColChanged事件
If e.DataCol.Name = "货物名称" orelse e.DataCol.Name = "日期" Then
Dim Filter As String = "[货物名称] = '" & e.DataRow(货物名称") & "' and 日期=#" & e.DataRow(日期") & "#"
e.DataRow("原发数") = DataTables("运费登记").Compute("Sum(原发数)", Filter)
End If