跨表引用，如何设置只引用部分数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我现在有3个表：工资表，岗位薪级表，特殊薪级表

1、通过“岗位薪级表” ，引用不同“职务”对应的“岗位工资”，引用到工资表中。

2、但是其中有3个人，是通过“特殊薪级表”来匹配的，引用“姓名”对应的“岗位工资”，引用到工资表中。

问题，我怎么下面代码中，剔除这三个人，在代码1中不执行引用。

此主题相关图片如下：岗位薪级.png

代码1：

If e.DataCol.Name = "职务" Then

If e.NewValue Is Nothing Then

e.DataRow("岗位工资") = Nothing

e.DataRow("保密津贴") = Nothing

e.DataRow("竞业限制金") = Nothing

Else

Dim dr As DataRow

dr = DataTables("岗位薪级表").Find("[职务] = '" & e.NewValue & "'")

If dr IsNot Nothing

e.DataRow("岗位工资") = dr("岗位工资")

e.DataRow("保密津贴") = dr("保密津贴")

e.DataRow("竞业限制金") = dr("竞业限制金")

End If

代码2：

此主题相关图片如下：特殊薪级.png

If e.DataCol.Name = "姓名" Then

If e.NewValue Is Nothing Then

e.DataRow("岗位工资") = Nothing

e.DataRow("保密津贴") = Nothing

e.DataRow("竞业限制金") = Nothing

Else

Dim dr As DataRow

dr = DataTables("特殊薪级表").Find("[姓名] = '" & e.NewValue & "'")

If dr IsNot Nothing

e.DataRow("岗位工资") = dr("岗位工资")

e.DataRow("保密津贴") = dr("保密津贴")

e.DataRow("竞业限制金") = dr("竞业限制金")

End If

[此贴子已经被作者于2016/12/1 10:43:28编辑过]

If e.DataCol.Name = "职务" Then

If e.NewValue Is Nothing orelse e.DataRow.isnull("姓名") Then

e.DataRow("岗位工资") = Nothing

e.DataRow("保密津贴") = Nothing

e.DataRow("竞业限制金") = Nothing

Else

Dim dr As DataRow

dr = DataTables("其他薪级表").Find("[姓名] = '" & e.DataRow("姓名") & "'")

If dr Is Nothing

dr = DataTables("岗位薪级表").Find("[职务] = '" & e.NewValue & "'")

If dr IsNot Nothing

e.DataRow("岗位工资") = dr("岗位工资")

e.DataRow("保密津贴") = dr("保密津贴")

e.DataRow("竞业限制金") = dr("竞业限制金")

End If

版主，你代码两边都无效了…… 引用职务和姓名无法执行了。

我的意思是：代码1，A,B,C三个人的姓名来取消他们的引用效果。

A,B，C，三人在代码2中引用

代码2保持不变，代码1 改为2楼的代码

代码1不运行，代码2是好的，就是能不能在代码1中，加一个判断条件，如果姓名是 A,B,C这三个人，则取消代码1的引用。

贴出事件完整代码，或者上传例子测试

主题：跨表引用，如何设置只引用部分数据