主题：查找某列内容在另一列最近出现离当前列行数

行号	第一列	第二列	第三列
1	甲乙	丙丁	0
2	丙丁	甲乙	1

第一列的内容 和 第二列的内容，不同的行里可能会相同，我想用 第三列 显示出：第二列每行的内容最近一次出现在第一列的第几行。应该怎么做啊？

_Sortkey 是啥啊？我运行时候出错。

你好！谢谢你啊！我现在想把 第三列 改成 得到 第二列内容 和 第一列内容 的行数差，我改成下面这样

我会了改成 e.DataRow("第三列") = e.DataRow("_Identify") - (Tables(e.DataTable.Name).FindRow(fdr) + 1) 就好了。

还有一个问题啊！我只想后边的内容查找前面行有没有同样内容，可现在得出的数字有正有负，正的就是距离前面内容现在有多少行，负的是距离后面内容现在有多少行。能再查询方法里设置么？还是我加个判断语句，负的就不显示？

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = e.DataTable.Find("第一列 = '" & e.DataRow("第二列") & "' and _Identify <= " & e.DataRow("_Identify"), "_Identify desc")
    If fdr IsNot Nothing Then

这句有问题e.DataRow("第三列") = Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr)

If e.DataCol.Name = "第二列" Then
    Dim fdr As DataRow = e.DataTable.Find("第一列 = '" & e.DataRow("第二列") & "' and _Sortkey <= " & e.DataRow("_Sortkey"), "_Sortkey desc")
    If fdr Is Nothing Then
        fdr = e.DataTable.Find("第一列 = '" & e.DataRow("第二列") & "' and _Sortkey >= " & e.DataRow("_Sortkey"))
    End If
    If fdr IsNot Nothing Then
        e.DataRow("第三列") = Tables(e.DataTable.Name).FindRow(fdr) + 1
    Else
        e.DataRow("第三列") = Nothing
    End If
End If