日期条件,请用##包裹,而不是单引号,如
e.DataRow("消费") = DataTables("消费表").Compute("sum(朋友圈_消费)","[日期] = #" & e.NewValue & "#")
http://www.foxtable.com/webhelp/scr/1284.htm