老师,如果下面对应的结果等于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