老师，我在窗口表中的表事件中写了标注红色字体的条件，明明有满足这个条件的，但是还是需要手动刷新计算，不能按照条件重新计算，请帮忙看看，谢谢
If e.DataRow("待加工数") <> 0 AndAlso e.DataRow("计划数量") <> 0 Then
If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "生产批次" OrElse e.DataCol.Name = "加工工序" OrElse e.DataCol.Name = "使用设备" Then
Dim Filter40 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备") & "'"
e.DataRow("不合格品") = DataTables("过程异常明细").SQLCompute("Sum(异常数量)", Filter40)
e.DataRow("流转数量") = DataTables("过程异常明细").SQLCompute("Sum(流转数量)", Filter40)
End If
If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "生产批次" Then
Dim Filter20 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备") & "' And (判定结果 Like '%料废%' Or 判定结果 like '%工废%')"
e.DataRow("报废品") = DataTables("过程异常明细").SQLCompute("count(异常数量)", Filter20)
End If
If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "生产批次" Then
Dim Filter21 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备") & "' And 判定结果 Like '%长期待处理%'"
e.DataRow("长期待处理") = DataTables("过程异常明细").SQLCompute("count(异常数量)", Filter21)
End If
end if
加好友 
发短信
Post By：2022/2/22 16:57:00 [显示全部帖子]
