以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码 不 计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55352)

--  作者:yifan3429
--  发布时间:2014/8/14 21:36:00
--  代码 不 计算
If e.DataCol.Name = "单位" Then
    If e.DataRow("单位") ="立方米"  Then
        e.DataRow("产品_计量") = e.DataRow("产品_长") * e.DataRow("产品_宽") * e.DataRow("产品_高") / 1000000000
    ElseIf e.DataRow("单位") ="平方米"  Then
        e.DataRow("产品_计量") = e.DataRow("产品_宽") * e.DataRow("产品_高") / 1000000
    ElseIf e.DataRow("单位") ="每延米"  Then
        If e.DataRow("产品_计量") = e.DataRow("产品_长") / 1000    代码 不 计算 有问题吗?求教!
        End If
    End If
End If

--  作者:有点甜
--  发布时间:2014/8/14 21:38:00
--  

 

[此贴子已经被作者于2014-8-14 21:40:00编辑过]

--  作者:有点甜
--  发布时间:2014/8/14 21:40:00
--  
If e.DataCol.Name = "单位" Then
    If e.DataRow("单位") ="立方米"  Then
        e.DataRow("产品_计量") = e.DataRow("产品_长") * e.DataRow("产品_宽") * e.DataRow("产品_高") / 1000000000
    ElseIf e.DataRow("单位") ="平方米"  Then
        e.DataRow("产品_计量") = e.DataRow("产品_宽") * e.DataRow("产品_高") / 1000000
    ElseIf e.DataRow("单位") ="每延米"  Then
        e.DataRow("产品_计量") = e.DataRow("产品_长") / 1000    \'代码 不 计算 有问题吗?求教!
    End If
End If