主题：求修正这段计算代码，目前只能实现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