求解：如何实现现金流量计划表中 只计算与企业概况表中计划书编号关联字段一样的 列的值 的总和
代码如下：
Dim r As Row =Tables("企业概况.企业组织").Current
Dim r2 As Row =Tables("企业概况").Current
Dim r3 As Row =Tables("企业概况.固定资产折旧流动资金").Current
Dim r4 As Row =Tables("企业概况.销售和成本计划表").Current
Select Case e.DataCol.name
Case "月份"
If e.DataRow.Isnull("月份") = False Then
e.DataRow("现金流出_现金采购支出_项目1")=r3("原材料1_总费用")+r3("原材料2_总费用")+r3("原材料3_总费用")+r3("原材料4_总费用")+r3("原材料5_总费用")+r3("原材料6_总费用")
e.DataRow("现金流出_业主工资")= r("业主或经理_月薪")
e.DataRow("现金流出_员工工资")=r("员工1_月薪")+r("员工2_月薪")+r("员工3_月薪")
e.DataRow("现金流出_营销费用")=r2("人员推销_成本")+r2("广告_成本")+r2("公共关系_成本")+r2("营业推广_成本")
e.DataRow("现金流出_保险费")=r("责任1_费用")
e.DataRow("现金流出_公用事业费")=r3("经营费用5_费用")
e.DataRow("现金流出_维修费")=r3("经营费用6_费用")
End If
End Select
上述代码能够实现月份变动后
自动从相关表中获取数据并计算出来，
由于现金流量计划表是和企业概况中的计划书编号字段是关联的
不同的计划书编号 是对应不同的现金流量计划表
现在故障出现：
不同计划书编号 不能对应只计算对应计划书编号的值
而是计算了所有当前表当前列的值
比如原材料1总费用就计算了表 企业概况.固定资产折旧流动资金 中的所有原材料1列的所有数值
求解：如何实现关联表中 只计算计划书编号一样的 列的值
加好友 
发短信
Post By：2014/7/2 2:45:00 [显示全部帖子]
此主题相关图片如下：悄悄问问饿.jpg