主题：结果显示指定数值

老师，如果下面对应的结果等于1，则显示为指定的数值。不然显示为空白，这个怎么把它连起来呢？谢谢！

 

如果这个结果=1，显示为：1

Select Case e.DataCol.Name
    Case "加工工序","毛坯编码"
        Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "'"
        e.DataRow("完成数量") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter3)
        e.DataRow.save
End Select

如果这个结果=1，显示为：2
Select Case e.DataCol.Name
    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today & "' And 班次 = '中班'"
        e.DataRow("完成数量") = DataTables("每日排产").SQLCompute("Sum(加工数量)", Filter3)
        e.DataRow.save
End Select

就是说如果Select Case e.DataCol.Name
    Case "加工工序","毛坯编码"
        Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "'"
        e.DataRow("完成数量") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter3)
        e.DataRow.save
End Select    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today & "' And 班次 = '中班'"
        e.DataRow("完成数量") = DataTables("每日排产").SQLCompute("Sum(加工数量)", Filter3)
        e.DataRow.save
End Select

如图2是汇总表，如图1是明细表，为什么以下代码不能正常汇总呢？谢谢

Select Case e.DataCol.Name
    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today & "' And 班次 = '夜班'"
        e.DataRow("完成数量") = DataTables("每日排产").SQLCompute("Sum(加工数量)", Filter)

        If e.DataRow("完成数量") = 1 Then
            e.DataRow("完成数量") = 4
        Else
            e.DataRow("完成数量") = Nothing
        End If
        e.DataRow.save
End Select

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png

 

 

老师， Filter3带个3是什么意思呀？

老师，写了两段代码却只能求和一段代码的结果，如图1，但明细表里却有三个结果，如图2

 

Select Case e.DataCol.Name
    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today & "' And 班次 = '白班'"
        e.DataRow("完成数量") = DataTables("每日排产").Compute("Sum(加工数量)", Filter)
        If e.DataRow("完成数量") = 1 Then
            e.DataRow("完成数量") = 2
        Else
            e.DataRow("完成数量") = Nothing
        End If
        e.DataRow.save
End Select
Select Case e.DataCol.Name
    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today.adddays(1) & "' And 班次 = '白班'"
        e.DataRow("完成数量") = DataTables("每日排产").Compute("Sum(加工数量)", Filter)
        If e.DataRow("完成数量") = 1 Then
            e.DataRow("完成数量") = 3
        Else
            e.DataRow("完成数量") = Nothing
        End If
        e.DataRow.save
End Select

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

老师，还是只能出现一段代码的结果
此主题相关图片如下：1.png


此主题相关图片如下：2.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip