以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  第3次销售的单价  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21964)
--  作者：wilson
--  发布时间：2012/7/29 13:39:00
--  第3次销售的单价

例如：

Dim cmd As New SQLCommand
Dim ndj As Double
cmd.CommandText = "Select Top 10 单价 From {订单} Where 产品 = \'PD01\' Order By 日期 Desc"
ndj = cmd.ExecuteScalar

上面的代码获得产品"PD01"最近10次销售的单价，保存在变量ndj中。

 

那如何获得产品"PD01"最近第3次销售的单价，求助
--  作者：mr725
--  发布时间：2012/7/29 20:22:00
--  

CurrentTable.sort = "产品,日期 desc"
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select Top 10 单价 From {订单} Where 产品 = \'PD01\' Order By 日期 Desc"
dt = cmd.ExecuteReader()

If dt.datarows.count > 2
    output.show("最近第三次的单价是: " & dt.DataRows(2)("单价"))
End If
--  作者：wilson
--  发布时间：2012/7/30 12:49:00
--  

问题已解决。

非常感谢M版主