不行啊,有重复的照样能添加进去。改了一下代码,也不行。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.BuildTree("年度安全目标", "企业名称|部门设置|岗位设置|第四层机构设置|第五层机构设置|第六层机构设置")
tr.ExpandAll()
MessageBox.Show("已向《公司年度安全目标》表中成功添加了公司组织机构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
老师,再帮忙看一下吧。谢谢
另外,如果选中行的部门设置或岗位设置是空值,查找年度安全目标表中的部门设置或岗位设置是空值的行,有影响吗?
[此贴子已经被作者于2019/1/16 8:20:08编辑过]