主题：[求助]

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

点击浏览该文件:管理项目1.table

此主题相关图片如下：123456.png

没看懂你要做什么，请具体说明你要做到的效果

 

        Dim drs As List(of DataRow)
        Dim Filter As String
        Dim d1 As Date = e.DataRow("付款日期")
        d1 = new Date(d1.Year, d1.Month, 1)
        Dim d2 As Date = d1.AddMonths(1)
        Filter = "[付款日期] >= #" & d1 & "# and 付款日期 < #" & d2 & "# And [户名] = '" & e.DataRow("户名") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[付款日期] <= #" & e.DataRow("付款日期") & "# and 付款日期 >= #" & d1 & "# And [户名] = '" & e.DataRow("户名") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(实付金额)",Filter)
            dr("实付金额") = Val1
        Next

我是想从付款日期中提取月份信息到月份列。然后同一户名的人在同一个月累计实付金额，按照公式来算出每笔金额所对应的劳务税费。此人劳务税费占此人此月劳务税费的总额的比例与每笔实付金额占此月此人的的总实付金额比例相同。

而且需要通过费用类型来判定是否为劳务费，此公式只对劳务费，除劳务费以外的费用不予计算

加一列【累计实付金额】，然后显示累计结果，如

 

       Dim drs As List(of DataRow)
        Dim Filter As String
        Dim d1 As Date = e.DataRow("付款日期")
        d1 = new Date(d1.Year, d1.Month, 1)
        Dim d2 As Date = d1.AddMonths(1)
        Filter = "[付款日期] >= #" & d1 & "# and 付款日期 < #" & d2 & "# And [户名] = '" & e.DataRow("户名") & "'"
        drs = e.DataTable.Select(Filter, "付款日期,_sortkey")
        For Each dr As DataRow In drs
            Filter = "[付款日期] <= #" & e.DataRow("付款日期") & "# and 付款日期 >= #" & d1 & "# And [户名] = '" & e.DataRow("户名") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(实付金额)",Filter)
            dr("累计实付金额") = Val1
        Next