专家坐堂-手工编码统计中求取当前日期前的最后一行数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  手工编码统计中求取当前日期前的最后一行数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104952)

--  作者：zhangxl1964
--  发布时间：2017/8/9 8:32:00
--  手工编码统计中求取当前日期前的最后一行数据

老师：你好！
怎样实现统计选择日期前的最后一行数据？
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("日期", Gettype(data))
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
Dim QueryMonth As Date \'自定义日期
QueryMonth = Forms("统计").Controls("日期").value
For Each nm As String In DataTables("订单").GetValues("产品")
    Dim dr As DataRow = DataTables("统计").AddNew()
  dr("日期") = QueryMonth
    dr("产品") = nm
    dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & dr("产品") & "\' and and [日期] < \'" & QueryMonth") & "\'") \'这里怎样把选择日期前的最后一行条件加上
    dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = \'" & dr("产品") & "\' and and [日期] < \'" & QueryMonth") & "\'") \'这里怎样把选择日期前的最后一行条件加上
Next

--  作者：有点甜
--  发布时间：2017/8/9 8:49:00
--
Dim fdr As DataRow = DataTables("订单").find("[产品] = \'" & dr("产品") & "\' and [日期] < #" & QueryMonth & "#", "日期 desc, _Identify desc")
If fdr IsNot Nothing Then
    msgbox(fdr("数量"))
End If
[此贴子已经被作者于2017/8/9 8:49:35编辑过]