主题：判断条件下的金额计算

Select Case e.DataCol.Name
    Case "件2"
        If e.DataRow.IsNull("规格") Then
            e.DataRow("包2") = Nothing
        Else
            e.DataRow("包2") = e.DataRow("件2") * e.DataRow("规格")
        End If
        e.DataRow("金额") = e.DataRow("件2") * e.DataRow("单价")
    Case "包2"
        If e.DataRow.IsNull("件2") Then     这句改为： 件2为空且包2不为空 
            e.DataRow("金额") = e.DataRow("包2") * e.DataRow("单价")
        End If
End Select

Select Case e.DataCol.Name

    Case "产品代码"

        Dim Filter As String = "产品代码= " & e.DataRow("产品代码")

        e.DataRow("包") = DataTables("进货明细").Compute("Sum(包1)", Filter & " And 进货类别 = 进货"))-DataTables("进货明细").Compute("Sum(包1)", Filter & " And 进货类别 = 退货"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 销售"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 赠送"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 报废"))+DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 退货"))

   End If

End Select

上面的代码执行后，提示：编译错误，应为语句结束，

不知错在那里了