- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求解：税金计算不能从一月到十二月。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52875)
-- 发布时间：2014/6/24 22:22:00
-- 求解：税金计算不能从一月到十二月。
求解：税金计算不能从一月到十二月。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:创业计划书.table |
此主题相关图片如下：123456.jpg
此主题相关图片如下：qq图片20140624220414.jpg
计算按钮事件代码：
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
r("现金流出_税金")=fdr1("销售_流转税增值税等")+fdr1("税费_企业所得税")+fdr1("税费_个人所得税")+fdr1("税费_其他")
End If
r("月底现金A减B")=r("现金收入_可支配现金A")-r("现金流出_现金总支出B")
Next
运行代码不执行税金计算，求解！
-- 发布时间：2014/6/24 22:28:00
--
呃，没有数据源，怎么测试？
你试试是不是这个问题？
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
-- 发布时间：2014/6/24 22:35:00
-- 回复：（有点甜） 呃，没有数据源，怎么测试？...
感谢有点甜老师 还真是这个问题 呵呵 是采用的内部数据源 所以没有外部数据