窗口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.BuildTree("年度安全目标", "企业名称|部门设置|岗位设置|第四层机构设置|第五层机构设置|第六层机构设置")
tr.ExpandAll()
Next
MessageBox.Show("已向《年度安全目标》表中成功添加了公司组织机构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
自己写了几次没成功，请帮忙改一下，谢谢。
加好友 
发短信
Post By：2019/1/15 21:22:00 [只看该作者]
