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

Select Case e.DataCol.name
    Case "批号"
        Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.OldValue & "'")


        If dr Is Nothing Then
            If e.DataRow("检验结果")="合格" AndAlso e.DataRow("检验结果")="让步接受" Then
                dr = DataTables("入库标签").AddNew()
                dr("批号") = e.DataRow("批号")
                dr("检验结果") = e.DataRow("检验结果")
                dr("检验日期") = e.DataRow("检验日期")
            End If
        Else
            dr("批号") = e.DataRow("批号")
        End If

    Case "检验日期","检验结果"
        Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.DataRow("批号") & "'")
        If dr Is Nothing AndAlso e.DataRow("检验结果")="合格" AndAlso e.DataRow("检验结果")="让步接受" Then
            dr = DataTables("入库标签").AddNew()
            dr("批号") = e.DataRow("批号")
            dr("检验结果") = e.DataRow("检验结果")
            dr("检验日期") = e.DataRow("检验日期")
        End If

        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

Select Case e.DataCol.name
    Case "批号"
        Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.OldValue & "'")


        If dr Is Nothing Then
            If e.DataRow("检验结果")="合格" orelse e.DataRow("检验结果")="让步接受" Then
                dr = DataTables("入库标签").AddNew()
                dr("批号") = e.DataRow("批号")
                dr("检验结果") = e.DataRow("检验结果")
                dr("检验日期") = e.DataRow("检验日期")
            End If
        Else
            dr("批号") = e.DataRow("批号")
        End If

    Case "检验日期","检验结果"
        Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.DataRow("批号") & "'")
        If dr Is Nothing AndAlso (e.DataRow("检验结果")="合格" orelse e.DataRow("检验结果")="让步接受") Then
            dr = DataTables("入库标签").AddNew()
            dr("批号") = e.DataRow("批号")
            dr("检验结果") = e.DataRow("检验结果")
            dr("检验日期") = e.DataRow("检验日期")
        End If

        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

[此贴子已经被作者于2016/1/7 14:39:57编辑过]

Case "检验日期","检验结果"
    Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.DataRow("批号") & "'")
    If e.DataRow("检验结果")="合格" OrElse e.DataRow("检验结果")="让步接受" Then
        If dr Is Nothing Then
            dr = DataTables("入库标签").AddNew()
            dr("批号") = e.DataRow("批号")
            dr("检验结果") = e.DataRow("检验结果")
            dr("检验日期") = e.DataRow("检验日期")
        End If
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
    Else
        If dr IsNot Nothing Then
            dr.Delete
        End If
    End If

End Select

[此贴子已经被作者于2016/1/7 14:43:20编辑过]

主题：自动增行