以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123038)
--  作者：农民工组长jon
--  发布时间：2018/8/7 9:00:00
--  代码问题

图片点击可在新窗口打开查看此主题相关图片如下：捕获.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



代码出现题    不知道原因在哪里？    请专家给指点指点
谢谢
--  作者：有点甜
--  发布时间：2018/8/7 9:06:00
--  

1、代码没问题

 

2、dz列如果是数值列，不能赋值字符串【合计】
--  作者：农民工组长jon
--  发布时间：2018/8/7 10:18:00
--  后续问题
这段代码   我是想实现   套重 总重  图套重  汇总合计功能
判断出现合计的行    是产品名称列或者图号列  的第一个空值出现厚     材质裂   显示“合计”
产品名称列或者图号列  的第一个空值出现    这一行的      套重 总重  图套重单元格自动对列求和结果
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
图片点击可在新窗口打开查看
--  作者：农民工组长jon
--  发布时间：2018/8/7 10:28:00
--  后续
我感觉这个表应该是    打开表     第一行就出现合计          第一行名称或图号输入内容            第二行出现合计      依次类推       直到最后名称或图号列不在输入内容
 
这样做的目的    就是让    合计行跟随    表格     中间没有空行
--  作者：有点甜
--  发布时间：2018/8/7 10:55:00
--  

你是想【合计行】一直显示？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=121115&skin=0