第3次销售的单价 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 第3次销售的单价

共有10510人关注过本帖树形打印复制链接主题：第3次销售的单价

wilson

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

第3次销售的单价 发帖心情

Post By：2012/7/29 13:39:00 [只看该作者]

例如：

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次销售的单价，求助

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/7/29 17:58:00 [只看该作者] 用户已被锁定

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/7/30 12:49:00 [只看该作者]

问题已解决。

非常感谢M版主

下一主题 >> << 上一主题

主题：第3次销售的单价