订单表的DataColChanging

If e.DataCol.Name = "订单ID" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单ID = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单ID已经存在!")
        e.Cancel = True
    End If
End If

做了一个导入订单ID的窗口， 导入按钮代码

If Tables("导入订单_ID表").rows.Count > 0 Then
    For Each r1 As Row In Tables("导入订单_ID表").GetCheckedRows
        Dim  r2 As Row = Tables("订单表").AddNew
        r2("订单ID") = r1("订单ID")
    Next
    e.Form.close
Else
    MessageBox.Show("无此ID,请重新选择!")
End If

如果订单ID重复， 则提示此订单ID已经存在!，点击确定关闭导入窗口， 问题是： 关闭导入窗口后新增了一个空行， 如何在关闭导入窗口后不添加空行或者自动删除新增的空行