以文本方式查看主题

-  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=33723)

--  作者:hnmzd
--  发布时间:2013/5/23 12:49:00
--  如何筛选
表内有"日期","销售收入","定额"等字段,想请教一下如何筛选出连续三个月"销售收入"大于"定额"的记录.
--  作者:Bin
--  发布时间:2013/5/23 14:10:00
--  
参考帮助 http://www.foxtable.com/help/topics/2720.htm  实在不懂的话 上例子.
--  作者:hnmzd
--  发布时间:2013/5/23 14:16:00
--  
是我没说清楚,我是要找出表中那些员工,什么时候连续三个月"销售收入"都大于"定额"并列表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:销售记录.table

[此贴子已经被作者于2013-5-23 15:19:36编辑过]

--  作者:Bin
--  发布时间:2013/5/23 14:17:00
--  
参考帮助无法实现的话,你上例子吧!
--  作者:hnmzd
--  发布时间:2013/5/23 15:23:00
--  
上传附件了
--  作者:狐狸爸爸
--  发布时间:2013/5/23 16:24:00
--  

命令窗口执行:

 

For Each nm As String In DataTables("销售记录").GetUniqueValues("","员工")
    Dim drs As List(of DataRow) = DataTables("销售记录").Select("员工 = \'" & nm & "\'")
    If drs.count > =3 Then
        For i As Integer = 0 To drs.count - 3
            If drs(i)("销售收入") >= drs(i)("定额") AndAlso drs(i+1)("销售收入") >= drs(i+1)("定额") AndAlso drs(i+2)("销售收入") >= drs(i+2)("定额") Then
                output.show(nm & ":" & drs(i)("所属时期") & "-" & drs(i+2)("所属时期"))
            End If
        Next
    End If
Next


--  作者:Bin
--  发布时间:2013/5/23 16:35:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:销售记录.table


[此贴子已经被作者于2013-5-23 16:36:24编辑过]

--  作者:hnmzd
--  发布时间:2013/5/23 17:04:00
--  
十分感谢!但bin是33条记录,狐爸是34条
[此贴子已经被作者于2013-5-23 17:15:22编辑过]

--  作者:Bin
--  发布时间:2013/5/23 17:22:00
--  
你自己对比一下我少了的是哪一条,我在看看是什么问题.
--  作者:hnmzd
--  发布时间:2013/5/23 17:22:00
--  
缺少员工4,所属时期2013-03-01