以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 查询当前日期之前的最后一行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105165) |
-- 作者:zhangxl1964 -- 发布时间: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.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 |
-- 作者:有点甜 -- 发布时间:2017/8/13 12:37:00 -- 无法直接这样设置filter查询。参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104832&skin=0
|