- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 跨表检索，并给予提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134028)
-- 发布时间：2019/4/25 16:35:00
-- 跨表检索，并给予提示
甜哥，蓝老师：
两张表，在员工信息表性名列输入姓名时，会自动在“人力资源配置”表中查找此人，如果有同名同姓的且id相同，会主动给予提示检查员工id，
如果“人力资源配置”表中没有此人，怎要求在“人力资源配置”表中添加。怎么做？
此主题相关图片如下：111.png
此主题相关图片如下：222.png
[此贴子已经被作者于2019/4/25 16:37:56编辑过]
-- 发布时间：2019/4/25 16:59:00
--
员工表，datacolchanged
If e.DataCol.Name = "姓名" Then
If e.NewValue > "" Then
Dim dr As DataRow
dr = DataTables("人力资源配置").Find("[员工id] = \'" & e.DataRow("员工id") & "\' and 姓名=\'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
msgbox("提示")
Else
dr = DataTables("人力资源配置").addnew()
dr("员工id") = e.DataRow("员工id")
dr("姓名") = e.DataRow("姓名")
End If
End If
End If