主题：如何实现在转移数据时，判断表中是否有指定单位的数据，如果有，如何实现弹到删除窗口？

2楼的文件已经提供了思路，就是判断某个表是否存在某单位的记录，如果存在，则在窗口显示这些记录，然后用户可单击删除按钮此单位的全部记录。
这里用的是DeleteFor方法，批量删除符合条件的记录，不是一条条删除的。

万变不离其宗，你再变化，也不过是DataTable的Find方法检查一下，看看有没有符合条件的记录，如果有，则用DataTable的DeleteFor方法一次性删除符合条件的行:

Dim dws As List(Of String)
dws = DataTables("原数据表").GetUniqueValues("", "单位") '列出所有单位
For each dw As String In dws '逐个单位判断
    Dim dr As DataRow = DataTables("目标数据表").find("[单位] = '" & dw & "'")
    If dr IsNot Nothing Then
        If MessageBox.Show("已存在同单位记录,是否删除?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then
            DataTables("目标数据表").DeleteFor("[单位] = '" & dw & "'")
        End If
    End If
Next