老师，我把毛坯编码、加工工序、扫码类型等为条件拦截重号的情况，但是还是偶尔有个别的没有拦截住。用系统测试了，也确实能拦截住，但是后面也确实有漏拦截的。请帮忙看看，窗口表事件代码如下：
Select Case e.DataCol.name
Case "毛坯编码", "加工工序", "扫码类型"
Dim dr As DataRow = e.DataRow
If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("加工工序") = False AndAlso dr.IsNull("扫码类型") = False Then
If DataTables("清洗刻号扫码_工序跟踪表").Compute("Count([_Identify])", "毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "' And 扫码类型 = '" & dr("扫码类型") & "'") > 1 Then
MessageBox.Show("工序重号,重新输入!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
ElseIf DataTables("工序跟踪表").sqlCompute("Count([_Identify])", "毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "' And 扫码类型 = '" & dr("扫码类型") & "'") > 0 Then
MessageBox.Show("工序重号,重新输入!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End If
End If
End Select
加好友 
发短信
Post By：2023/2/21 14:29:00 [显示全部帖子]
