主题：结果显示指定数值

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

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