主题：求解：税金计算不能从一月到十二月。

For Each r As Row In Tables("企业概况.现金流量计划表").Rows

    Dim val As Integer = r("月份")

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

    If fdr1 IsNot Nothing Then

        msgbox(1)

        r("现金流出_税金")=fdr1("销售_流转税增值税等")+fdr1("税费_企业所得税")+fdr1("税费_个人所得税")+fdr1("税费_其他")

    End If

    r("月底现金A减B")=r("现金收入_可支配现金A")-r("现金流出_现金总支出B")

Next