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

窗口A中表1选中的行，通过按钮添加到表2中，如果表2中已经存在与表1中列7、列8、列9、列10内容相同的行，则不添加，否则添加。现在代码是这样：

For Each r As Row In Tables("快速添加组织机构_table1").GetCheckedRows

Dim xz As winform.checkbox = e.Form.controls("checkbox1")

Dim nr As DataRow = DataTables("年度安全目标").addnew

nr("企业名称") = r("企业名称")

nr("部门设置") = r("部门设置")

nr("岗位设置") = r("岗位设置")

nr("第四层机构设置") = r("第四层机构设置")

nr("第五层机构设置") = r("第五层机构设置")

nr("第六层机构设置") = r("第六层机构设置")

r.checked = False

xz.checked = False

Dim tr As WinForm.TreeView = Forms("安全信息化系统主窗口").Controls("TreeView4")

tr.ExpandAll()

MessageBox.Show("已向《年度安全目标》表中成功添加了公司组织机构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

自己写了几次没成功，请帮忙改一下，谢谢。

For Each r As Row In Tables("快速添加组织机构_table1").GetCheckedRows

Dim nr As DataRow = DataTables("年度安全目标").Find("列7='" & r("列7") & "' and 列8='" & r("列8") & "' ") '其它列自行参考补充完整

If nr Is Nothing Then

nr = DataTables("年度安全目标").AddNew

nr("企业名称") = r("企业名称")

nr("部门设置") = r("部门设置")

nr("岗位设置") = r("岗位设置")

nr("第四层机构设置") = r("第四层机构设置")

nr("第五层机构设置") = r("第五层机构设置")

nr("第六层机构设置") = r("第六层机构设置")

End If

r.checked = False

Dim xz As winform.checkbox = e.Form.controls("checkbox1")
xz.checked = False

Dim tr As WinForm.TreeView = Forms("安全信息化系统主窗口").Controls("TreeView4")

tr.ExpandAll()

MessageBox.Show("已向《年度安全目标》表中成功添加了公司组织机构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

不行啊，有重复的照样能添加进去。改了一下代码，也不行。

For Each r As Row In Tables("快速添加组织机构_table1").GetCheckedRows

Dim nr As DataRow = DataTables("年度安全目标").Find("企业名称='" & r("企业名称") & "' and 年度 = '" & Date.Today.year & "' and 部门设置 = '" & r("部门设置") & "' and 岗位设置 = '" & r("岗位设置") & "'")

Dim xz As winform.checkbox = e.Form.controls("checkbox1")

If nr IsNot Nothing Then

MessageBox.Show("本年度您可能已添加过本公司的组织机构,禁止重复添加!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

nr = DataTables("年度安全目标").addnew

nr("企业名称") = r("企业名称")

nr("部门设置") = r("部门设置")

nr("岗位设置") = r("岗位设置")

nr("第四层机构设置") = r("第四层机构设置")

nr("第五层机构设置") = r("第五层机构设置")

nr("第六层机构设置") = r("第六层机构设置")

r.checked = False

xz.checked = False

Dim tr As WinForm.TreeView = Forms("安全信息化系统主窗口").Controls("TreeView4")

tr.ExpandAll()

MessageBox.Show("已向《公司年度安全目标》表中成功添加了公司组织机构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

老师，再帮忙看一下吧。谢谢

另外，如果选中行的部门设置或岗位设置是空值，查找年度安全目标表中的部门设置或岗位设置是空值的行，有影响吗？

[此贴子已经被作者于2019/1/16 8:20:08编辑过]

代码要改成这样

Dim filter As String = "年度 = '" & Date.Today.year & "'"

If r("企业名称") = Nothing Then

    filter &= " and 企业名称 is null"

Else

    filter &= " and 企业名称 = '" & r("企业名称") & "'"

End If

If r("部门") = Nothing Then

    filter &= " and 部门 is null"

else

    filter &= " and 部门 = '" & r("部门") & "'"

End If

If r("岗位设置") = Nothing Then

    filter &= " and 岗位设置 is null"

Else

    filter &= " and 岗位设置 = '" & r("岗位设置") & "'"

End If

msgbox(filter)

Dim nr As DataRow = DataTables("年度安全目标").Find(filter)

可以了，谢谢蓝老师，甜老师

主题：禁止重复