主题：求修正这段计算代码，目前只能实现1月计算 当增加到2月时候不计算了 一直到12月都不计算了

代码如下：该代码是在现金流量表中去按照录入的月份去销售和成本计划表中查找对应录入月份下的四中税值并进行计算出来！

想实现当现金流量表月份发生变化时候自动实现对应月份税金的计算

 

 

下述代码运行后只实现了一月的计算 二月到12月不执行。

Select Case e.DataCol.name
    Case "月份"
        If e.DataRow.Isnull("月份") = False Then
            Dim val As Integer = e.DataRow("月份")
            Dim fdr1 As DataRow = DataTables("销售和成本计划表").Find("计划书编号 = '" & e.DataRow("计划书编号") & "' and 月份 = '" & val & "'")
            If fdr1 IsNot Nothing Then
                e.DataRow("现金流出_税金")=fdr1("销售_流转税增值税等")+fdr1("税费_企业所得税")+fdr1("税费_个人所得税")+fdr1("税费_其他")
            End If
        End If
End Select

Dim fdr1 As DataRow = DataTables("销售和成本计划表").Find("计划书编号 = '" & e.DataRow("计划书编号") & "' and 月份 = " & val)

程老师 先谢谢你 不过问题还是依旧哦 继续求解中……

上例子看看

感谢BIN 老师   例子上传

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

点击浏览该文件:创业计划书0617.zip

你这例子要怎么用,问题在哪.

问题在现金流量计划表中，这个代码是在表事件中。

你表中就没有其他月份的数据

代码

 

Select Case e.DataCol.name
    Case "月份"
        If e.DataRow.Isnull("月份") = False Then
            Dim val As Integer = e.DataRow("月份")
            Dim fdr1 As DataRow = DataTables("销售和成本计划表").Find("月份 = " & val) 
            If fdr1 IsNot Nothing Then
                e.DataRow("现金流出_税金")=fdr1("销售_流转税增值税等")+fdr1("税费_企业所得税")+fdr1("税费_个人所得税")+fdr1("税费_其他")
            End If
        End If
End Select

BIN老师  请点应用窗体后再去新增操作