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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据转移单位目录树选择.table

很简单，先find，看看有没有，如果有，用一个DataList在窗口中显示这些记录。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目143.table

是在转移时提示，“调资基础数据”表内已经存在该单位数据，然后让用户去选择是否按单位删除“调资基础数据”表原来已经转移过的数据，而不是一个人一个人的删除！！！
如何实现？谢谢

是在转移时提示，“调资基础数据”表内已经存在该单位数据，然后让用户去选择是否按单位删除“调资基础数据”表原来已经转移过的数据，而不是一个人一个人的删除！！！ 如何实现？谢谢

是在转移时提示，“调资基础数据”表内已经存在该单位数据，然后让用户去选择是否按单位删除“调资基础数据”表原来已经转移过的数据，而不是一个人一个人的删除！！！ 如何实现？谢

各位版主帮帮忙

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

 

Dim Q AS  String

Q = "[单位名称]= '" & .Value & "'"

DataTables("调资基础数据").DeleteFor("[单位名称] = Q")

如何删除下拉文本框内指定单位名称的行！！！
单位名称是一个变量！！！

我的思路是先判断是否有重复的数据，然后弹到删除指定单位窗口，去删除。

应该这样：

DataTables("调资基础数据").DeleteFor("[单位名称] = '" & Q & "'")