代码合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "毛坯编码","加工工序"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("加工工序") = False Then
            If DataTables("工序记录表_工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 1 Then
                MessageBox.Show("工序重号,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            ElseIf DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 0 Then
                MessageBox.Show("工序重号,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	代码合并 Post By：2017/12/3 22:57:00 [只看该作者] 用户已被锁定

主题：代码合并