主题：[求助]满足条件是自动移到指定表，求帮助

表名分别改为 :"已完成","疑难件"

Select Case e.DataRow("处理进度")

    Case "已完成","疑难件"

        Dim r As Row = Tables(e.DataRow("处理进度")).AddNew

        For Each dc As DataCol In e.DataTable.DataCols

            r(dc.Name) = e.DataRow(dc.Name)

        Next

        e.DataRow.Delete()

    End  Select