以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  查询订单  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77477)
--  作者：zhangxl1964
--  发布时间：2015/11/19 8:52:00
--  查询订单
老师：你好！

      我想单表查询订单明细中所有客户截至今天的最后一条订单，现在的代码没能找出截至今天的最后一条合同记录。

      请帮助修改。
Dim Filter1 As String
With e.Form.Controls("日期")
    If .Value IsNot Nothing Then
        If Filter1 >"" Then
            Filter1 = Filter1 & " And "
        End If
        Filter1 = Filter1 & "{合同记录}.日期 < \'" & .Value & "\'"
    End If
End With
Dim jb As New SQLJoinTableBuilder("查询表1","合同记录")
jb.C
Dim dt As fxDataSource
jb.AddTable("合同记录","合同编号")

jb.AddCols("{合同记录}.省市","{合同记录}.县市", "{合同记录}.客户名称","{合同记录}.合同编号","{合同记录}.合同金额")
jb.AddExp("{合同记录}.日期","max[日期]") 
jb.Filter = Filter1

dt = jb.BuildDataSource()
Tables("查询_Table1").DataSource = dt \'将统计结果绑定到Table
--  作者：大红袍
--  发布时间：2015/11/19 9:44:00
--  

Filter1 = Filter1 & "{合同记录}.日期 < \'" & .Value & "\'"

 

改成这样看看

 

Dim d as Date = .Value

Filter1 = Filter1 & "{合同记录}.日期 < \'" & d.Adddays(1) & "\'"