Dim dt As Date = Tables("表A").Current("日期")dt = dt.AddMonths(-12)Dim v AS double = DataTables("表A").Compute("Sum(数量)", "日期 >= # " & dt & "#")
MessageBox.show(v)
加好友 
发短信
Post By：2012/11/5 9:01:00 [显示全部帖子]
