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