此主题相关图片如下:捕获.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-8/201887857239969.jpg)
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "cpmc","th","tz","dts","dz","zz","xls","ttz","dtz"
If dr.IsNull("cpmc") OrElse dr.IsNull("th") Then '如果产品名称或图号为空
dr("dz") = "合计" '产品名称或图号第一个为空的单重列=合计
Else
dr("tz") = dr("dts") * dr("dz") '套重=单套数量*单重
dr("zz") = dr("xls") * dr("dz") '总重=下料数量*单重
dr("ttz") = dr("dts") * dr("tdz")'图单重=单套数量*图单重
End If
End Select
代码出现题 不知道原因在哪里? 请专家给指点指点
谢谢