在Datacolchanged加入开关

http://www.foxtable.com/help/topics/2218.htm

代码的头部和尾部各加入一句代码

SystemReady = False

SystemReady = True

有点甜老师 这个容易出错 导致系统进入锁死状态，不会执行任何事件代码，单击菜单按钮也不会有反应。

继续求解最有效的办法！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:创业计划书06170012.table

运行代码后

会出现这个错误：

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.3.8.1
错误所在事件：表，固定资产折旧流动资金，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Object reference not set to an instance of an object.

求纠正  谢谢！

表事件代码已经弄成如下：

e.DataRow("折旧项目1_名称")="工具和设备(5年折旧)"
e.DataRow("折旧项目2_名称")="交通工具(10年折旧)"
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("经营费用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("经营费用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_备注")="其他相关费用"

Select Case e.DataCol.Name
    Case "工具1_单价","工具1_数量"
        e.DataRow("工具1_总费用")=e.DataRow("工具1_数量")*e.DataRow("工具1_单价")
    Case "工具2_单价","工具2_数量"
        e.DataRow("工具2_总费用")=e.DataRow("工具2_数量")*e.DataRow("工具2_单价")
    Case "工具3_单价","工具3_数量"
        e.DataRow("工具3_总费用")=e.DataRow("工具3_数量")*e.DataRow("工具3_单价")
    Case "工具4_单价","工具4_数量"
        e.DataRow("工具4_总费用")=e.DataRow("工具4_数量")*e.DataRow("工具4_单价")
    Case "工具5_单价","工具5_数量"
        e.DataRow("工具5_总费用")=e.DataRow("工具5_数量")*e.DataRow("工具5_单价")
    Case "工具6_单价","工具6_数量"
        e.DataRow("工具6_总费用")=e.DataRow("工具6_数量")*e.DataRow("工具6_单价")
    Case "工具7_单价","工具7_数量"
        e.DataRow("工具7_总费用")=e.DataRow("工具7_数量")*e.DataRow("工具7_单价")
    Case "工具8_单价","工具8_数量"
        e.DataRow("工具8_总费用")=e.DataRow("工具8_数量")*e.DataRow("工具8_单价")
    Case "工具9_单价","工具9_数量"
        e.DataRow("工具9_总费用")=e.DataRow("工具9_数量")*e.DataRow("工具9_单价")
    Case "交通工具1_单价","交通工具1_数量"
        e.DataRow("交通工具1_总费用")=e.DataRow("交通工具1_数量")*e.DataRow("交通工具1_单价")
    Case "交通工具2_单价","交通工具2_数量"
        e.DataRow("交通工具2_总费用")=e.DataRow("交通工具2_数量")*e.DataRow("交通工具2_单价")
    Case "交通工具3_单价","交通工具3_数量"
        e.DataRow("交通工具3_总费用")=e.DataRow("交通工具3_数量")*e.DataRow("交通工具3_单价")
    Case "交通工具4_单价","交通工具4_数量"
        e.DataRow("交通工具4_总费用")=e.DataRow("交通工具4_数量")*e.DataRow("交通工具4_单价")
    Case "办公家具设备1_单价","办公家具设备1_数量"
        e.DataRow("办公家具设备1_总费用")=e.DataRow("办公家具设备1_数量")*e.DataRow("办公家具设备1_单价")
    Case "办公家具设备2_单价","办公家具设备2_数量"
        e.DataRow("办公家具设备2_总费用")=e.DataRow("办公家具设备2_数量")*e.DataRow("办公家具设备2_单价")
    Case "办公家具设备3_单价","办公家具设备3_数量"
        e.DataRow("办公家具设备3_总费用")=e.DataRow("办公家具设备3_数量")*e.DataRow("办公家具设备3_单价")
    Case "办公家具设备4_单价","办公家具设备4_数量"
        e.DataRow("办公家具设备4_总费用")=e.DataRow("办公家具设备4_数量")*e.DataRow("办公家具设备4_单价")
    Case "办公家具设备5_单价","办公家具设备5_数量"
        e.DataRow("办公家具设备5_总费用")=e.DataRow("办公家具设备5_数量")*e.DataRow("办公家具设备5_单价")
    Case "办公家具设备6_单价","办公家具设备6_数量"
        e.DataRow("办公家具设备6_总费用")=e.DataRow("办公家具设备6_数量")*e.DataRow("办公家具设备6_单价")
    Case "原材料1_单价","原材料1_数量"
        e.DataRow("原材料1_总费用")=e.DataRow("原材料1_数量")*e.DataRow("原材料1_单价")
    Case "原材料2_单价","原材料2_数量"
        e.DataRow("原材料2_总费用")=e.DataRow("原材料2_数量")*e.DataRow("原材料2_单价")
    Case "原材料3_单价","原材料3_数量"
        e.DataRow("原材料3_总费用")=e.DataRow("原材料3_数量")*e.DataRow("原材料3_单价")
    Case "原材料4_单价","原材料4_数量"
        e.DataRow("原材料4_总费用")=e.DataRow("原材料4_数量")*e.DataRow("原材料4_单价")
    Case "原材料5_单价","原材料5_数量"
        e.DataRow("原材料5_总费用")=e.DataRow("原材料5_数量")*e.DataRow("原材料5_单价")
    Case "原材料6_单价","原材料6_数量"
        e.DataRow("原材料6_总费用")=e.DataRow("原材料6_数量")*e.DataRow("原材料6_单价")
End Select

SystemReady = False

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_年折旧")
SystemReady = True