主题：求助：多行、多列判定后再赋值

各位老师们：我在一窗口中设置了下拉控件，其代码如下：我想要的结果是图2

Dim t As Table = Tables("制造质量管理")
Dim cr = t.Current

IF，发动机号相同，检验岗不包涵终检，部门列的当前行如果和前面多行的内容不同
    cr("直行") = "非直行"

   ELSE

     IF，发动机号相同，检验岗等于终检，部门列的当前行如果和检验岗为终检的前面多行的内容不同

        cr("直行") = "非直行"

     ELSE

        cr("直行") = " "

   ENDIF

ENDIF

此主题相关图片如下：微信图片_20181228234428.png


此主题相关图片如下：微信图片_20181228201534.png

请各位老师费心！

实例已上传。

我想要的效果是：在窗口中选择第三列后，表中的第四列显示：

条件1：在第一列相同、第五列不包涵工检7，且第三列当前行的以上行内容没有重复时，第四列显示：非直行。如果第三列当前行的以上行内容有重复，第四列显示：空。

条件2：在第一列相同、第五列等于工检7，且第三列当前行的以上行内容没有重复时，第四列显示：非直行。如果第三列当前行的以上行内容有重复，第四列显示：空。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

我想要的效果如下图：

此主题相关图片如下：微信图片_20181229213412.png

请老师费心！

datacolchanged事件

If e.DataCol.name = "第一列" OrElse e.DataCol.name = "第三列" Then
    Dim fdr = e.DataTable.find("第一列='" & e.DataRow("第一列") & "' and 第三列='" & e.DataRow("第三列") & "' and _sortkey<" & e.DataRow("_sortkey"))
    If fdr Is Nothing Then
        e.DataRow("第四列") = "非直行"
    Else
        e.DataRow("第四列") = Nothing
    End If
End If