不建议用表达式,建议用代码处理,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