If e.DataCol.name = "处理状态" Then If e.DataRow("处理状态") = "已完成" Dim dr As DataRow = DataTables("表B").AddNew For Each dc As DataCol In DataTables("表A").DataCols dr(dc.Name) = e.DataRow(dc.Name) Next ElseIf e.DataRow("处理状态") = "疑难件" Dim dr As DataRow = DataTables("表C").AddNew For Each dc As DataCol In DataTables("表A").DataCols dr(dc.Name) = e.DataRow(dc.Name) Next e.DataRow.Delete() End If End If