主题：求解：新增按钮事件，拟增加关联表数据，结果一点按钮就关闭了整个项目！

Dim r As Row =Tables("企业概况.企业组织").Current

Dim r2 As Row =Tables("企业概况").Current

Dim r3 As Row =Tables("企业概况.固定资产折旧流动资金").Current

e.DataRow("经费费用1_费用")= r("业主或经理_月薪")

e.DataRow("经营费用2_费用")=r("员工1_月薪")+r("员工2_月薪")+r("员工3_月薪")

e.DataRow("经营费用4_费用")=r2("人员推销_成本")+r2("广告_成本")+r2("公共关系_成本")+r2("营业推广_成本")

e.DataRow("经营费用3_费用")=r2("选址1_租金")

e.DataRow("经营费用7_费用")=r("责任1_费用")

e.DataRow("经营费用8_费用")=(r("执照1_费用")+r("执照2_费用")+r("执照3_费用")+r("执照4_费用"))/12

e.DataRow("其他经营费用合计")=e.DataRow("经费费用1_费用")+e.DataRow("经营费用2_费用")+e.DataRow("经营费用3_费用")+e.DataRow("经营费用4_费用")+e.DataRow("经营费用5_费用")+e.DataRow("经营费用6_费用")+e.DataRow("经营费用7_费用")+e.DataRow("经营费用8_费用")+e.DataRow("经营费用9_费用")+e.DataRow("经营费用10_费用")

e.DataRow("折旧项目合计价值")=r3("折旧项目1_价值")+r3("折旧项目2_价值")+r3("折旧项目3_价值")+r3("折旧项目4_价值")+r3("折旧项目5_价值")+r3("折旧项目6_价值")+r3("折旧项目7_价值")+r3("折旧项目8_价值")+r3("折旧项目9_价值")+r3("折旧项目10_价值")

e.DataRow("折旧项目1_价值")=r3("工具1_总费用")+r3("工具2_总费用")+r3("工具3_总费用")+r3("工具4_总费用")+r3("工具5_总费用")+r3("工具6_总费用")

e.DataRow("折旧项目2_价值")=r3("交通工具1_总费用")+r3("交通工具2_总费用")+r3("交通工具3_总费用")

e.DataRow("折旧项目3_价值")=r3("办公家具设备1_总费用")+r3("办公家具设备2_总费用")+r3("办公家具设备3_总费用")+r3("办公家具设备4_总费用")+r3("办公家具设备5_总费用")+r3("办公家具设备6_总费用")

e.DataRow("折旧项目4_价值")=r2("选址2_租金")

e.DataRow("折旧项目1_年折旧")=e.DataRow("折旧项目1_价值")/60

e.DataRow("折旧项目2_年折旧")=e.DataRow("折旧项目2_价值")/120

e.DataRow("折旧项目3_年折旧")=e.DataRow("折旧项目3_价值")/60

e.DataRow("折旧项目4_年折旧")=e.DataRow("折旧项目4_价值")/12

e.DataRow("折旧项目5_年折旧")=e.DataRow("折旧项目5_价值")/120

e.DataRow("折旧项目6_年折旧")=e.DataRow("折旧项目6_价值")/120

e.DataRow("折旧项目7_年折旧")=e.DataRow("折旧项目7_价值")/12

e.DataRow("折旧项目8_年折旧")=e.DataRow("折旧项目8_价值")/12

e.DataRow("折旧项目9_年折旧")=e.DataRow("折旧项目9_价值")/12

e.DataRow("折旧项目10_年折旧")=e.DataRow("折旧项目10_价值")/12

e.DataRow("折旧项目合计年折旧")=e.DataRow("折旧项目1_年折旧")+e.DataRow("折旧项目2_年折旧")+e.DataRow("折旧项目3_年折旧")+e.DataRow("折旧项目4_年折旧")+e.DataRow("折旧项目5_年折旧")+e.DataRow("折旧项目6_年折旧")+e.DataRow("折旧项目7_年折旧")+e.DataRow("折旧项目8_年折旧")+e.DataRow("折旧项目9_年折旧")+e.DataRow("折旧项目10_年折旧")