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

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

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

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

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

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

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

各位版主帮帮忙

 

Dim Q AS  String

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

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

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

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

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

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

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

 

 

Dim Val As string

Val= e.Form.Controls("单位名称").Value

if Val > "" AndAlso DataTables("调资基础数据").Select("[单位名称] = '" & val & "'").Count > 0  then

MessageBox.Show("已存在相同单位记录,是否删除?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)

Forms("删除指定单位数据").Open()

  Else

dim f As New Filler

 f.SourceTable = DataTables("人事工资管理") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("调资基础数据") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

With e.Form.Controls("单位名称")

    If .Value IsNot Nothing Then

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

Else

End If

End With

f.Fill() '填充数据

MessageBox.Show("原始数据已经读入完成!!!", "提示")

End If