主题：求助关联表字段计算

  计算尽量不要用表达式列去计算，不灵活，实现不了复杂的计算。

 请上传foxtable例子。

直接编写代码计算即可

 

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

 

 

 DataColchanged事件

 

Select Case e.DataCol.Name
    Case "上线包装代码","上线包装数量","上线包装类型","上线包装长","上线包装宽","上线包装高"
        If e.DataRow("上线包装类型") = "类型1"
            e.DataRow("上线包装投入数量") = "公式1"
        ElseIf e.DataRow("上线包装类型") = "类型2"
            e.DataRow("上线包装投入数量") = "公式2"
        ElseIf e.DataRow("上线包装类型") = "类型3"
            e.DataRow("上线包装投入数量") = "公式3"
        End If
End Select

If e.DataRow("上线包装类型") = "类型1" AndAlso e.DataRow("出厂包装类型") = "类型1"

e.DataRow("上线包装投入数量") = e.DataRow("第一列") + e.DataRow("第二列") - e.DataRow("第三列")

 贴出datacolchanged写的代码。

 代码不会造成程序退出。

 

 请做一个出错的例子发上来。

Select Case e.DataCol.Name
    Case "出厂包装类型","上线包装类型","出厂包装数量","上线包装数量","每小时工作量","单车用量" ,"拉动时间","使用地点数","安全系数","当班生产时间","包装周转周期","额外包装占用率"
        If e.DataRow("出厂包装类型") = "纸箱" AndAlso e.DataRow("上线包装类型") = "纸箱"
            e.DataRow("出厂包装投入数量") = "1"
            e.DataRow("上线包装投入数量") = "1"
           
        ElseIf e.DataRow("出厂包装类型") = "纸箱" AndAlso e.DataRow("上线包装类型") = "塑料箱"
            e.DataRow("出厂包装投入数量") = "1"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "纸箱" AndAlso e.DataRow("上线包装类型") = "铁箱"
            e.DataRow("出厂包装投入数量") = "1"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "纸箱" AndAlso e.DataRow("上线包装类型") = "专用器具"
            e.DataRow("出厂包装投入数量") = "1"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "仓储笼" AndAlso e.DataRow("上线包装类型") = "塑料箱"
            e.DataRow("出厂包装投入数量") = e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("出厂包装数量")
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "仓储笼" AndAlso e.DataRow("上线包装类型") = "铁箱"
            e.DataRow("出厂包装投入数量") = e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("出厂包装数量")
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "仓储笼" AndAlso e.DataRow("上线包装类型") = "专用器具"
            e.DataRow("出厂包装投入数量") = e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("出厂包装数量")
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "铁箱" AndAlso e.DataRow("上线包装类型") = "塑料箱"
            e.DataRow("出厂包装投入数量") = e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("出厂包装数量")
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "铁箱" AndAlso e.DataRow("上线包装类型") = "铁箱"
            e.DataRow("出厂包装投入数量") =  "0"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("上线包装数量")
           
        ElseIf e.DataRow("出厂包装类型") = "铁箱" AndAlso e.DataRow("上线包装类型") = "专用器具"
            e.DataRow("出厂包装投入数量") = e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("出厂包装数量")
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("单车用量") / e.DataRow("上线包装数量")*e.DataRow("拉动时间")*e.DataRow("安全系数")*e.DataRow("使用地点数")
           
        ElseIf e.DataRow("出厂包装类型") = "塑料箱" AndAlso e.DataRow("上线包装类型") = "塑料箱"
            e.DataRow("出厂包装投入数量") =  "0"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("上线包装数量")
           
        ElseIf e.DataRow("出厂包装类型") = "专用器具" AndAlso e.DataRow("上线包装类型") = "专用器具"
            e.DataRow("出厂包装投入数量") =  "0"
            e.DataRow("上线包装投入数量") =e.DataRow("每小时工作量") *e.DataRow("当班生产时间") * e.DataRow("包装周转周期")*e.DataRow("额外包装占用率")/e.DataRow("上线包装数量")
           
        End If
End Select

 

参考 http://www.foxtable.com/help/topics/0272.htm