- 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)
-- 发布时间：2019/6/1 15:14:00
-- 正反循环（数据表从上向下循环和从下向上循环的使用）
有点甜老师：
你好！
请看附件
列"一道码" 的数据第一行由于没有开奖，就在 列"一道中" 第一行写入待开奖。
从第二行的 列 "一道码" 数据 跟列"一" 数据的第一行 比较，如果有相同则显示 1 期中 如不同则显示 1 期未中
从第 X 行的 列 "一道码" 数据跟列"一" 数据的第(X-1)行向上 比较，如果找到相同则显示（找到的次数）期中 如一直找到第一行还
没相同，则显示（找了多少次）期未中
怎么实现？
非常感谢！
-- 发布时间：2019/6/1 15:44:00
--
项目里没有一楼所说的列
-- 发布时间：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
-- 发布时间：2019/6/1 16:40:00
--
谢谢老师!!!
可以了！！