主题：[讨论]年度统计

If e.DataCol.name = "年份" OrElse e.DataCol.name = "客户名称" Then
    If e.DataRow.Isnull("年份") = False AndAlso e.DataRow.Isnull("客户名称") = False Then
        Dim filter1 As String = "客户 = '" & e.DataRow("客户名称") & "'"
        Dim filter2 As String = "客户名称 = '" & e.DataRow("客户名称") & "'"
        For i As Integer = 1 To 12
            Dim d As Date = new Date(val(e.DataRow("年份")), i, 1)
            Dim sum As Integer = DataTables("出库明细").compute("sum(出库_价税合计)", filter1 & " and 出库日期 >= #" & d & "# and 出库日期 < #" & d.addmonths(1) & "#")
            Dim sum1 As Integer = DataTables("入库明细").compute("sum(合计金额)", filter2 & " and 入库日期 >= #" & d & "# and 入库日期 < #" & d.addmonths(1) & "#")

            e.DataRow("M" & i) = sum
        Next
    Else
        For i As Integer = 1 To 12
            e.DataRow("M" & i) = Nothing
        Next
    End If
End If

e.DataRow("M" & i) = sum

改成

e.DataRow("M" & i) = sum + sum1

 删除重复行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档 (2).txt

Dim cmd5 As New SQLCommand
Dim dt As DataTable
cmd5.ConnectionName = "数据库"
Dim t5 As Table = Tables("进销存")

Dim filter = iif(t5.filter > "", t5.filter, "1=1")
cmd5.CommandText = "SELECT DISTINCT year(日期) as 年, 来源,客户ID,客户名称 from {进销存} where " & filter
dt = cmd5.ExecuteReader()
For Each dr As DataRow In dt.datarows
    filter = "年份 = '" & dr("年") & "' and 来源 = '" & dr("来源") & "' and 客户名称 = '" & dr("客户名称") & "'"
    Dim ndr As DataRow = DataTables("年度统计").find(filter)
    If ndr Is Nothing Then
        ndr = DataTables("年度统计").addnew
    End If
    ndr("年份") = dr("年")
    ndr("来源") = dr("来源")
    ndr("客户名称") = dr("客户名称")
Next