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