Foxtable(狐表) → 用户栏目 → 专家坐堂 → 正反循环（数据表从上向下循环和从下向上循环的使用）


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

主题：正反循环（数据表从上向下循环和从下向上循环的使用）
帅哥哟，离线，有人找我吗？
Rex1Chen
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：73 积分：574 威望：0 精华：0 注册：2018/1/20 15:25:00 		正反循环（数据表从上向下循环和从下向上循环的使用）  发帖心情 Post By：2019/6/1 15:14:00 [只看该作者]

有点甜老师：

       你好！

    请看附件
    
   列"一道码" 的数据第一行由于没有开奖，就在 列"一道中" 第一行写入待开奖。

从第二行的 列 "一道码" 数据  跟列"一" 数据的第一行 比较，如果有相同则显示 1 期中  如不同则显示 1 期未中

从第 X 行的 列 "一道码" 数据跟列"一" 数据的第(X-1)行向上 比较，如果找到相同则显示（找到的次数）期中  如一直找到第一行还

没相同，则显示（找了多少次）期未中

怎么实现？

非常感谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/1 15:44:00 [只看该作者]

项目里没有一楼所说的列

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


加好友 发短信
等级：幼狐 帖子：73 积分：574 威望：0 精华：0 注册：2018/1/20 15:25:00 		  发帖心情 Post By：2019/6/1 15:57:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



不好意思！老师

请查收附件.

Dim t As Table = Tables("统计")
For x As Integer = 0 To t.Rows.count-12
    Dim r1 As Row = t.Rows(x-1)
    Dim r2 As Row = t.Rows(x)
    Dim ls As new List(Of String)
    For i As Integer = r2.Index To t.Rows.count-1
        If ls.Contains(t.Rows(i)("一")) = False Then
            ls.add(t.Rows(i)("一"))
        End If
        If ls.count >= 4 Then
            Exit For
        End If
    Next
    r2("一道码") = String.Join(",", ls.ToArray)
    For y As Integer = r2.Index To 0 Step -1
        If ls.Contains(t.Rows(y)("一")) = True Then
            t.Rows(y)("一道中") = "中"
        Else 'If ls.Contains(t.Rows(y)("一")) = False Then
            t.Rows(y)("一道中") = "不中"
        End If
    Next   
Next

我写点代码实现不了.
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/1 16:28:00 [只看该作者]

Dim t As Table = Tables("统计")
For x As Integer = 1 To t.Rows.count-12
    Dim r2 As Row = t.Rows(x)
    Dim lst As New List(of String)
    lst.AddRange(r2("一道码").split(","))
    Dim r1 As Row
    Dim idx As Integer = 0
    Dim find As Boolean = False
    For i As Integer = x-1 To 0 Step -1
        r1 = t.Rows(i)
        idx = idx+1
        If lst.Contains(r1("一")) Then
            r2("一道中") = idx & "期中"
            find = True
            Exit For
        End If
    Next
    If find = False Then
        r2("一道中") = idx & "期未中"
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Rex1Chen
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：73 积分：574 威望：0 精华：0 注册：2018/1/20 15:25:00 		  发帖心情 Post By：2019/6/1 16:40:00 [只看该作者]

谢谢老师!!!

可以了！！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 6 次数据查询