以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  正反循环(数据表从上向下循环和从下向上循环的使用)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135712)

--  作者:Rex1Chen
--  发布时间:2019/6/1 15:14:00
--  正反循环(数据表从上向下循环和从下向上循环的使用)
有点甜老师:

       你好!

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

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

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

没相同,则显示(找了多少次)期未中

怎么实现?

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



--  作者:有点蓝
--  发布时间:2019/6/1 15:44:00
--  
项目里没有一楼所说的列
--  作者:Rex1Chen
--  发布时间: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

我写点代码实现不了.

--  作者:有点蓝
--  发布时间: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
--  发布时间:2019/6/1 16:40:00
--  
谢谢老师!!!

可以了!!