如何不导入重复的值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq图片20200605195204.png

在导入按钮中，我写了如下代码，可以导入数据，但存在一个问题，就是可以重复导入数据，我想在导入前能做一个提醒，如果 “绩效明细” 表里和准备导入的 “设置” 表的数据（以姓名为例）有重复，就提示有重复数据，禁止导入，如果没有重复数据，就执行我写的导入代码。

Tables("绩效明细").StopRedraw

For Each r As Row In Tables("设置").GetCheckedRows

Dim r1 As Row = Tables("绩效明细").AddNew

r1("姓名") = r("姓名")

Tables("绩效明细").ResumeRedraw

If MessageBox.Show("你已导入人员信息,请开始计算绩效工资","提示",MessageBoxButtons.OK,MessageBoxIcon.None) = DialogResult.OK Then

DataTables("绩效明细").DataCols("姓名").RaiseDataColChanged()

Forms("导入窗口").Close

End If

蓝版，指点下。

语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表，并且必须用括号括起来。

假如我一列行也没有选中的话，按导入数据按钮，就会提示语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表，并且必须用括号括起来。

如果选中数据了，不提示错误。

蓝版，再帮我看下。

这样行吗？蓝怎么

Tables("绩效明细").StopRedraw

If Tables("设置").GetCheckedRows.count = 0 Then

MessageBox.Show("请选中要导入的行,再导入数据","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

Return

Else

Dim str As String = ""

For Each r As Row In Tables("设置").GetCheckedRows

str = str & ",'" & r("姓名") & "'"

str = str.Trim(",")

If DataTables("绩效明细").Find("姓名 in (" & str & ")") IsNot Nothing Then

MessageBox.Show("导入数据重复,请核对!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

Return

End If

For Each r As Row In Tables("设置").GetCheckedRows

Dim r1 As Row = Tables("绩效明细").AddNew

r1("姓名") = r("姓名")

Tables("绩效明细").ResumeRedraw

If MessageBox.Show("你已导入人员信息,请开始计算绩效工资","提示",MessageBoxButtons.OK,MessageBoxIcon.None) = DialogResult.OK Then

DataTables("绩效明细").DataCols("姓名").RaiseDataColChanged()

Forms("导入窗口").Close

End If

主题：如何不导入重复的值？