主题：满足条件判断

临时表DataColchanged事件，看弹出什么。

 

Select Case e.DataCol.name
    Case "毛坯编码","加工工序"
        Dim dr As DataRow = e.DataRow

msgbox(1)
        If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("加工工序") = False Then

msgbox(2)
            If DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 1 Then

msgbox(3)
                MessageBox.Show("已经存在相同工序行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select

那你改成这样

 

 If DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 0 Then

下面代码，你输入什么，弹出什么？你需要什么结果？

 

Select Case e.DataCol.name
    Case "毛坯编码","加工工序"
        Dim dr As DataRow = e.DataRow

msgbox(1)
        If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("加工工序") = False Then

msgbox(2)
            If DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 0 Then

msgbox(3)
                MessageBox.Show("已经存在相同工序行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select

15楼代码写到DataColChanged事件，输入值以后，弹出什么？怎么没达到效果？

15楼代码，我测试没问题。如果编码、工序相同，就会提示1、2、3，然后提示存在相同行。