搞定了,我在“=”前面加了个“>”,改成下面的代码就行了“
Dim dtlh As Double = DataTables("产品信息").Compute("Sum(支数)","接稿日期 >= #" & Date.Today & "#")