以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样对最近的10条记录计算,条件怎样写?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177283)

--  作者:天一生水
--  发布时间:2022/5/16 11:37:00
--  [求助]怎样对最近的10条记录计算,条件怎样写?
老师好!
我对数据按日期排序后,要对最近的10条记录的数量列合计,这个条件怎样写?
谢谢!
Dim drs As List(of DataRow) 
drs = DataTables("订单").SQLSelect("产品 = \'PD01\'","", "日期 Desc")

Dim Val As Integer
Val = DataTables("订单").SQLCompute("Sum(数量)","产品 = \'PD01\'  and     ...      ")
Output.Show(Val)

--  作者:有点蓝
--  发布时间:2022/5/16 11:50:00
--  
SQLCompute没有办法

Dim drs As List(of DataRow) 
drs = DataTables("订单").SQLSelect("产品 = \'PD01\'",10, "日期 Desc")
dim sum as double
for each dr as datarow in drs
sum += dr("数量")
next
msgbox(sum)