专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133204)

--  作者：15201695028
--  发布时间：2019/4/9 16:21:00
--  [求助]

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

此主题相关图片如下：123456.png
您好，您能帮我看一下我datacolchanged里面的代码是哪个位置错了吗？应该如何改。

--  作者：有点甜
--  发布时间：2019/4/9 18:19:00
--

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

        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

--  作者：15201695028
--  发布时间：2019/4/10 9:13:00
--
我是想从付款日期中提取月份信息到月份列。然后同一户名的人在同一个月累计实付金额，按照公式来算出每笔金额所对应的劳务税费。此人劳务税费占此人此月劳务税费的总额的比例与每笔实付金额占此月此人的的总实付金额比例相同。

此月此人总实付金额小于等于800元则税费等于0
此月此人总实付金额大于800元小于3360元则税费等于（实付金额-800）*0.25
此月此人总实付金额大于3360元小于20000元则税费等于（实付金额）*0.1905
此月此人总实付金额大于20000小于37000元则税费等于（实付金额-2000）/0.76-实付金额
此月此人总实付金额大于37000元则税费等于（实付金额-7000）/0.68-实付金额
Case "实付金额"
Dim dr As DataRow = e.DataRow
If dr("实付金额")<800 Then
dr("专家劳务税费")=0
ElseIf dr("实付金额")<3360 Then
dr("专家劳务税费")=(dr("实付金额")-800)*0.25
ElseIf dr("实付金额") < 20000 Then
dr("专家劳务税费")=dr("实付金额")*0.1905
ElseIf dr("实付金额") < 37000 Then
dr("专家劳务税费")=(dr("实付金额")-2000)/0.76-dr("实付金额")
Else
dr("专家劳务税费")=(dr("实付金额")-7000)/0.68-dr("实付金额")
End If

--  作者：15201695028
--  发布时间：2019/4/10 9:20:00
--
而且需要通过费用类型来判定是否为劳务费，此公式只对劳务费，除劳务费以外的费用不予计算

--  作者：有点甜
--  发布时间：2019/4/10 11:27:00
--

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

       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