搞定了，我在“=”前面加了个“>”，改成下面的代码就行了“
Dim dtlh As Double = DataTables("产品信息").Compute("Sum(支数)","接稿日期 >= #" & Date.Today & "#")
加好友 
发短信
Post By：2012/10/13 14:07:00 [只看该作者]
