这段代码 我是想实现 套重 总重 图套重 汇总合计功能判断出现合计的行 是产品名称列或者图号列 的第一个空值出现厚 材质裂 显示“合计”
产品名称列或者图号列 的第一个空值出现 这一行的 套重 总重 图套重单元格自动对列求和结果
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "cpmc","th","tz","dts","cz","zz","xls","ttz","dtz"
If dr.IsNull("cpmc") OrElse dr.IsNull("th") Then '如果产品名称或图号为空
dr("cz") = "合计" '产品名称或图号第一个为空的单重列=合计
Else
dr("tz") = dr("dts") * dr("dz") '套重=单套数量*单重
dr("zz") = dr("xls") * dr("dz") '总重=下料数量*单重
dr("ttz") = dr("dts") * dr("tdz")'图单重=单套数量*图单重
End If
End Select
这段代码 出现 “合计” 是单元格 输入数据后 才能出现
怎么对 产品名称列或者图号列 的第一个空值出现 这一行的 套重 总重 图套重单元格自动对列求和结果？？？？？
此主题相关图片如下：捕获.jpg
加好友 
发短信
Post By：2018/8/7 9:00:00 [显示全部帖子]
