Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找某列内容在另一列最近出现离当前列行数


  共有3182人关注过本帖树形打印复制链接

主题：查找某列内容在另一列最近出现离当前列行数
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/16 19:41:00 [只看该作者]

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)
    Else
        e.DataRow("第三列") = Nothing
    End If
End If
[此贴子已经被作者于2014-11-16 19:40:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kaka201
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：111 威望：0 精华：0 注册：2014/11/16 17:12:00 		  发帖心情 Post By：2014/11/16 19:55:00 [只看该作者]

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
Dim juli As Short = Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr) 
If juli >= 0 Then
        e.DataRow("第三列") = juli
Else
e.DataRow("第三列") = 0
End If
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

我为了不得到 从前往后查找内容的距离，我这样改了，可 第三列 得到的全是0。怎么办啊？
[此贴子已经被作者于2014-11-16 19:55:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/16 20:06:00 [只看该作者]

 代码没有问题，肯定正确

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/16 20:07:00 [只看该作者]

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)
    Else
        e.DataRow("第三列") = 0
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
kaka201
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：111 威望：0 精华：0 注册：2014/11/16 17:12:00 		  发帖心情 Post By：2014/11/16 20:15:00 [只看该作者]

这句有问题e.DataRow("第三列") = Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr)
换成e.DataRow("第三列")  = e.DataRow("_Identify") - (Tables(e.DataTable.Name).FindRow(fdr) + 1)就好了。我都验证通过了。
Tables(e.DataTable.Name).Current.Index - Tables(e.DataTable.Name).FindRow(fdr) 得出来的都是负数
[此贴子已经被作者于2014-11-16 20:16:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kaka201
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：111 威望：0 精华：0 注册：2014/11/16 17:12:00 		  发帖心情 Post By：2014/11/17 15:29:00 [只看该作者]

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

是我错了，没仔细看你第一次写 比 后面写的 多了红色的代码。谢谢啊！还得努力学啊
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询