Foxtable(狐表)用户栏目专家坐堂 → 查询当前日期之前的最后一行


  共有1671人关注过本帖树形打印复制链接

主题:查询当前日期之前的最后一行

帅哥哟,离线,有人找我吗?
zhangxl1964
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:553 积分:5327 威望:0 精华:0 注册:2011/6/7 13:33:00
查询当前日期之前的最后一行  发帖心情 Post By:2017/8/13 7:40:00 [只看该作者]

有点甜老师:你好!
我需要查询 订单中每个产品ID 的最后一行并保存dt中,然后填充到订单查询表中。麻烦修改 jb.Filter的表达式
Dim QueryMonth As Date '自定义日期
QueryMonth=Forms("订单查询").Controls("日期").value

Dim jb As New SQLJoinTableBuilder("查询表1","订单")

Dim dt As DataTable

 
jb
.ConnectionName = "Sale"
jb
.AddTable("订单","产品ID","产品","产品ID")
jb.AddCols(
"产品名称", "日期", "数量","单价")

jb.Filter = “ {订单}.产品ID = ‘ “ & 产品ID & ”’  and {订单}.日期 < '" & QueryMonth & " ' ,"{订单}.日期 desc"   ” ' 这里的表达式如何修改?

jb.Build()

dt = jd.Build(True)


 Dim Vals As List(of String())

 Vals = dt1.GetValues("产品ID|产品名称|数量|单价")

        

        Dim cmd As new sqlcommand

        cmd.C

        cmd.CommandText = "select * f rom {订单查询}"

        Dim dt2 As DataTable = cmd.ExecuteReader(True)

        For i As Integer = 0 To Vals.Count - 1

            Dim dr As DataRow = dt2.AddNew()

            dr("日期") = QueryMonth

            dr("产品ID") = Vals(i)(0)

            dr("产品名称") = Vals(i)(1)

            dr("数量") = Vals(i)(2)

            dr("单价") = Vals(i)(3)

       Next

  dt2.save 




 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/13 12:37:00 [只看该作者]

 无法直接这样设置filter查询。参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104832&skin=0

 


 回到顶部