以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找某列内容在另一列最近出现离当前列行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60013)
--  作者：kaka201
--  发布时间：2014/11/16 17:24:00
--  查找某列内容在另一列最近出现离当前列行数
  行号   第一列   第二列   第三列 
   1   甲乙    丙丁   0
   2   丙丁   甲乙   1
第一列的内容 和 第二列的内容，不同的行里可能会相同，我想用 第三列 显示出：第二列每行的内容最近一次出现在第一列的第几行。应该怎么做啊？




[此贴子已经被作者于2014-11-16 17:28:16编辑过]
--  作者：有点甜
--  发布时间：2014/11/16 17:34:00
--  

 datacolchanged事件，代码

 

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
--  作者：kaka201
--  发布时间：2014/11/16 18:42:00
--  
_Sortkey 是啥啊？我运行时候出错。
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.ArgumentException: 列“_Sortkey”不属于表 表一。
--  作者：有点甜
--  发布时间：2014/11/16 19:04:00
--  
 没有_Sortkey 就改成 _Identify
--  作者：kaka201
--  发布时间：2014/11/16 19:14:00
--  
你好！谢谢你啊！我现在想把 第三列 改成 得到 第二列内容 和 第一列内容 的行数差，我改成下面这样
 e.DataRow("第三列") = CurrentTable.Position - (Tables(e.DataTable.Name).FindRow(fdr) + 1)。可得到的是 负的最近出现的行号
--  作者：有点甜
--  发布时间：2014/11/16 19:19:00
--  
 e.DataRow("第三列") = Tables(e.DataTable.Name).FindRow(e.Datarow)  - Tables(e.DataTable.Name).FindRow(fdr)
[此贴子已经被作者于2014-11-16 19:19:31编辑过]
--  作者：kaka201
--  发布时间：2014/11/16 19:26:00
--  
我会了改成 e.DataRow("第三列") = e.DataRow("_Identify") - (Tables(e.DataTable.Name).FindRow(fdr) + 1) 就好了。
--  作者：有点甜
--  发布时间：2014/11/16 19:28:00
--  
e.DataRow("第三列") = Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr)
--  作者：kaka201
--  发布时间：2014/11/16 19:36:00
--  
还有一个问题啊！我只想后边的内容查找前面行有没有同样内容，可现在得出的数字有正有负，正的就是距离前面内容现在有多少行，负的是距离后面内容现在有多少行。能再查询方法里设置么？还是我加个判断语句，负的就不显示？
--  作者：有点甜
--  发布时间：2014/11/16 19:39:00
--  
e.DataRow("第三列") = Math.abs(Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr))