主题：[求助]这样的乘积如何实现？

试试这样改：

Select Case e.DataCol.name

    Case "分切净重_1","分切净重_2","分切净重_3","分切净重_4","分切净重_5","分切净重_6","分切净重_7","分切净重_8","分切净重_9","分切净重_10"

        Dim dr As DataRow = e.DataRow

         i = dr("分切净重_1")+dr("分切净重_2")+dr("分切净重_3")+dr("分切净重_4")+dr("分切净重_5")+dr("分切净重_6")+dr("分切净重_7")+dr("分切净重_8")+dr("分切净重_9")+dr("分切净重_10")

        dr("分切金额") =  i * dr("分切单价")

End Select