主题：代码错哪了

Select Case e.DataCol.Name
    Case "存货名称", "净重", "单价", "数量","金额"
        If e.DataRow("存货名称") = "车煤粉" Then
            e.DataRow("金额") = e.DataRow("净重") * e.DataRow("单价")
        Else
            e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select
此主题相关图片如下：qq图片20140705102731.jpg

为什么代码不起作用呢？