以文本方式查看主题

-  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=53379)

--  作者:jzfxmy
--  发布时间:2014/7/6 20:46:00
--  [求助]如何查询最后3次订单的数据
需求:
1拉框 里面的数据 是 1 ,2,3,4,5..
然后是查询按钮   
如果下拉框是1  点击查询 就查询出最后1次订单的数据
如果下拉框是 2 点击查询 查询出的是最近2次订单的数据
一次类推 下拉框是8就代表 查询最近8次订单的数据
不知道怎么实现。有代码参考什么没的吗?。。。。 表里有 个 日期 字段

--  作者:有点甜
--  发布时间:2014/7/6 20:51:00
--  

自己改一改

 

Dim num As Integer = e.Form.controls("ComboBox1").Text
Dim idx As Integer = 1
Dim idxs As String = ""
For Each dr As DataRow In Datatables("表A").Select("", "日期 desc")
    If idx > num Then
        Exit For
    End If

    idx += 1
    idxs &= dr("_Identify") & ","
Next

Tables("表A").Filter = "_Identify in (" & idxs.TrimEnd(",") & ")"

[此贴子已经被作者于2014-7-6 20:51:20编辑过]

--  作者:jzfxmy
--  发布时间:2014/7/6 20:53:00
--  
图片点击可在新窗口打开查看