主题：增加两日期之间统计数量代码

怎么连老六的代码也不可以呢，检查一下“出单日期”列，看看是不是日期型的，或者用项目实例来说话。

对，用数据说话。

如果你所有的数据都在这两个日期之中，当然得到结果就是所有的数据。

我从2011-03-20至2011-03-26之间统计的数据，结果是2011-01-01至2011-03-26之间的数据，

在统计处理总量、处理费用、运输费用按两日期的选择，结果是正确的

If e.Form.Controls("DateTimePicker1").Value Is Nothing OrElse e.Form.Controls("DateTimePicker2").Value Is Nothing Then
    MessageBox.Show("请输入起始日期和结束日期")
    Return
End If
Dim dtb As New DataTableBuilder("统计")
Dim Filter As String = "出单日期 >= #" & e.Form.Controls("DateTimePicker1").Value & "# And 出单日期 <= #" & e.Form.Controls("DateTimePicker2").Value & "#"
Dim nms As List(of String) = DataTables("出口处理").GetUniqueValues("","用盘单位")
Dim dr As Row
dtb.AddDef("用盘单位", Gettype(String), 32)
dtb.AddDef("处理总量", Gettype(Double))
dtb.AddDef("运输费用", Gettype(Double))
dtb.AddDef("处理费用", Gettype(Double))
dtb.AddDef("合计", Gettype(Double))
dtb.Build()
For Each nm AS String In nms
    dr = Tables("统计").Addnew()
    dr("用盘单位") = nm
    dr("处理总量") = DataTables("出口处理").compute("Sum(处理总量)", "用盘单位 = '" & nm & "' And " & Filter)
    dr("运输费用") = DataTables("出口处理").compute("Sum(运输费用)", "用盘单位 = '" & nm & "' And " & Filter)
    dr("处理费用") = DataTables("出口处理").compute("Sum(处理费用)", "用盘单位 = '" & nm & "' And " & Filter)
    dr("合计")  = dr("运输费用") + dr("处理费用")
Next
dr = Tables("统计").AddNew
dr("用盘单位") = "合计"
dr("处理总量") = DataTables("出口处理").compute("Sum(处理总量)",Filter)
dr("运输费用") = DataTables("出口处理").compute("Sum(运输费用)",Filter)
dr("处理费用") = DataTables("出口处理").compute("Sum(处理费用)",Filter)
dr("合计")  = dr("处理总量") + dr("运输费用") + dr("处理费用")
e.Form.Close
MainTable= Tables("统计")

我 大概知道你为啥不行了，我的代码是固定两个日期测试的，而你要的却是从窗口输入两个日期。

上次我告诉你要在窗口插入两个日期控件，代码也会从日期控件取值，并给出对应的代码。
现在你已经接触了一段时间，所以今天我是直接告诉你如何统计指定日期范围，代码用的是两个固定的日期。
你继续从窗口输入起始日期，却不去修改你的代码，当然结果就不对了。

 

如果要从窗口去日期范围，稍微修改代码即可，当我我只是给你加上日期范围，你得保证你原来的代码正确：

 

Dim khs As List(of String) = DataTables("出口处理").GetUniqueValues("用盘单位 > ''", "用盘单位")
Dim pds As List(of String) = DataTables("出口处理").GetUniqueValues("品种1 > ''", "品种1")
Dim dt1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim dt2 As Date = e.Form.Controls("DateTimePicker2").Value

Dim rf As String = " And 日期列名 >= #" & dt1 & "# And 日期列名 <= #" & dt2 & "#"
Dim dt As New DataTableBuilder("处理数量")
dt.AddDef("客户", Gettype(String), 32)
For i As Integer = 2 To 8
    Dim lst As List(of String) = DataTables("出口处理").GetUniqueValues("品种" & i & " > ''" & rf , "品种" & i)
    For Each nm As String In Lst
        If pds.Contains(nm) = False
            pds.Add(nm)
        End If
    Next
Next
For Each pd As String In pds
    dt.AddDef(pd, Gettype(Integer))
Next
dt.Build
Dim tb AS Table = Tables("处理数量")
Dim Sum AS Integer
For Each kh As String In khs
    Dim r As Row = tb.AddNew()
    r("客户") = kh
    For Each pd As String In pds
        sum = 0
        For i As Integer = 1 To 8
            sum = sum + DataTables("出口处理").Compute("Sum(数量" & i & ")", "品种" & i & " = '" & pd & "' And 用盘单位 = '" & kh & "'" & rf)
        Next
        r(pd) = sum
    Next
Next
Dim sr As Row = tb.AddNew()
sr("客户") = "合计"
For Each pd As String In pds
    sum = 0
    For Each r As Row In tb.Rows
        sum = sum + r(pd)
    Next
    sr(pd) = sum
Next

谢谢师傅，以成功