主题：[原创]商品最小卖量按日期筛选

你筛选出3月16日的数据，然后分组统计出每个商品的销量，这样销量最多的商品，销量最小的商品，销量第二的商品，所有的都一目了然。

狐狸爸爸您好:

 

感谢您的答复,按您的方法,对少数商品可行,对2千多种不太可行,是不是用编程的方法可以解决,还请您解答一下?

谢谢您.

不复杂的，在命令窗口执行：

 

Dim rq As Integer = 316
Dim dms As List(of String) = DataTables("aa").GetUniqueValues("日期 = " & rq,"商品代码" )
Dim flt As String
For Each dm As String In dms
    Dim v1 As Integer = DataTables("aa").Compute("sum(商品卖量)","日期 = " & rq & " And 商品代码 = '" & dm & "'")
    Dim v2 As Integer = DataTables("aa").Compute("min(商品卖量)","日期 < " & rq & " And 日期 > " & rq - 6  & " And 商品代码 = '" & dm & "'")
    If v1 < v2 Then
        flt = flt & ",'" & dm & "'"
    End If
Next
flt = flt.Trim(",")
Tables("aa").Filter = "日期 = " & rq & " And 商品代码 in (" & flt & ")"