主题：结果显示指定数值

没看懂你表达的意思。这个意思？

Select Case e.DataCol.Name
    Case "加工工序","毛坯编码"
        Dim Filter3 As String = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "'"
        e.DataRow("完成数量") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter3)
        If e.DataRow("完成数量") = 1 Then
           
        Else
           
        End If
        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)
        If e.DataRow("完成数量") = 1 Then
e.DataRow("完成数量") = 2            
        Else
e.DataRow("完成数量") = nothing
        End If
        e.DataRow.save
End Select

1、弹出值看看

msgbox(DataTables("每日排产").SQLCompute("Sum(加工数量)", Filter))

2、修改filter的值，把条件改短一些，测试弹出是否正确。

改成这样弹出什么？是否正确？

Select Case e.DataCol.Name
    Case "加工工序","毛坯编码","生产日期","班次"
        Dim Filter As String = ""

        msgbox(DataTables("每日排产").SQLCompute("Sum(加工数量)", Filter))

        filter = "毛坯编码 = '" & e.DataRow("毛坯编码") & "' and 加工工序 = '" & e.DataRow("加工工序") & "' and 生产日期 = '" & Date.Today & "' And 班次 = '夜班'"

End Select

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