-- 作者:有点甜
-- 发布时间:2017/10/17 18:10:00
--
不建议用表达式,建议用代码处理,DataColChanged事件,写代码
Select Case e.DataCol.name Case "规格", "长度", "数量", "报表单位" Dim s As String = e.DataRow("报表单位") If s = "㎡" Then e.DataRow("报表数量") = Eval2(e.DataRow("规格"))*e.DataRow("长度")*e.DataRow("数量") ElseIf s = "m" Then e.DataRow("报表数量") = e.DataRow("长度")*e.DataRow("数量") ElseIf s="件" Then e.DataRow("报表数量") = e.DataRow("数量") End If End Select
|