主题：满足条件判断

参考

 

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楼代码写到DataColChanged事件，输入值以后，弹出什么？怎么没达到效果？

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条码扫描系统 (3).foxdb