以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80559)
--  作者：linswcfr
--  发布时间：2016/1/26 11:05:00
--  [求助]

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目9.foxdb

按“项目，日期”排序

如何找出每个项目最后一次‘余额<=0’ 后面的所有收入数据

 

 

 


 
--  作者：Hyphen
--  发布时间：2016/1/26 11:36:00
--  
Dim lst As new List(of DataRow)

Dim prj As List(Of String)  = DataTables("表A").GetValues("项目")
For Each s As String In prj
    Dim dr As DataRow = DataTables("表A").Find("项目 = \'" & s & "\' and 余额 <= 0","日期 desc")
    If dr IsNot Nothing Then
        Dim drs As List(Of DataRow) =  DataTables("表A").Select("项目 = \'" & s & "\' and 日期 > #" & dr("日期") & "#")
        If drs.Count > 0 Then lst.AddRange(drs.ToArray)
    End If
Next

For Each d As DataRow In lst
    Output.Show(d("余额"))
Next
--  作者：linswcfr
--  发布时间：2016/1/26 11:43:00
--  

谢谢
--  作者：linswcfr
--  发布时间：2016/1/26 11:50:00
--  

余额<=0时,同一日期内可能有其他单据..日期 > #" & dr("日期") & "#" 这样会不成立，要怎么办
--  作者：Hyphen
--  发布时间：2016/1/26 14:38:00
--  
把条件改成可以区分顺序的字段