参考

http://www.foxtable.com/webhelp/scr/1451.htm

你窗口的控件，没有绑定表列？如果绑定了表列，那么，就是表与表的关系。

如果没有绑定表列，那么，你把代码写到控件TextChanged事件去即可。

 你输入 毛坯和工序 以后，根据输入的值，去查找是否存在，如果存在就清空，类似

http://www.foxtable.com/webhelp/scr/2481.htm

e.DataTable 改成具体的表名，如 DataTables("表A")

临时表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楼代码，我测试没问题。如果编码、工序相同，就会提示1、2、3，然后提示存在相同行。