自动增行 - 专家坐堂 - 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

主题：自动增行