主题：求修正这段计算代码，目前只能实现1月计算 当增加到2月时候不计算了 一直到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("月份 = " & val) 
            If fdr1 IsNot Nothing Then
                e.DataRow("现金流出_税金")=fdr1("销售_流转税增值税等")+fdr1("税费_企业所得税")+fdr1("税费_个人所得税")+fdr1("税费_其他")
            End If
        End If
End Select