[求助]标记表中数值加减关系的行，基于数值加减关系查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

成绩表

行	成绩	学生	标记
1	97	张三
2	68	李四
3	60	王五
4	60	赵六
5	73	张三
6	61	李四	合格
7	75	王五
8	59	赵六
9	70	张三
10	61	李四
11	60	王五
12	79	赵六
13	60	张三
14	60	李四
15	99	王五
16	44	赵六
17	59	张三	合格
18	59	李四
19	61	王五
20	85	赵六

表格信息如上，需要查找成绩=60分时，并且它的下一行也是60分，在成绩行往下查找，距离最近的第一个59分或61分，然后在标记列标注"合格"

解释：表中成绩列，第一个60分在第3行，它的下一行也是60，然后往下查，第6行第一次出现61分，标记"合格"

继续往下查找，第11行出现60分，不做处理

继续往下查找，第13、14行出现60分，然后往下查，第17行第一次出现59分，标记"合格"

求大神指导！非常感谢！

Dim t As Table = Tables("成绩表")

For i As Integer = 1 To t.rows.count-1

If t.rows(i)("成绩") = 60

t.rows(i+1)("成绩") = 60

&& 或者 t.rows(i)("成绩") = t.rows(i+1)("成绩")

t.rows(m)("成绩") = 60+1 or 60-1

t.rows(m)("标记") = "合格"

[此贴子已经被作者于2017/7/10 15:26:14编辑过]

Dim t As Table = Tables("成绩表")
Dim n As Integer = 60
Dim flag1 As Boolean = False
Dim flag2 As Boolean = False
For i As Integer = 0 To t.rows.count-2
    If t.rows(i)("成绩") = n AndAlso t.rows(i+1)("成绩") = n Then
        flag1 = True
        flag2 = True
    End If
    If flag1 Then
        If t.rows(i)("成绩") = n+1
            t.rows(i)("标记") = "合格"
            flag1 = False
        End If
    End If
    If flag2 Then
        If t.rows(i)("成绩") = n-1
            t.rows(i)("标记") = "合格"
            flag2 = False
        End If
    End If
Next

感谢！！！

[此贴子已经被作者于2017/7/10 16:16:55编辑过]

看不懂你的逻辑，你到底想实现什么？这个功能是为什么需要的？

具体做个foxtable的实例发上来。

多谢

可以执行了，就是标记的行多了，把出现的第一个成绩数值标记就OK

[此贴子已经被作者于2017/7/10 17:03:35编辑过]

Dim t As Table = Tables("成绩表")
Dim n As Integer = 60
Dim flag1 As Boolean = False
Dim flag2 As Boolean = False
dim flag as boolean = false
For i As Integer = 0 To t.rows.count-1
    t.rows(i)("标记") = Nothing
Next
For i As Integer = 0 To t.rows.count-2
    If flag = False Then
        If t.rows(i)("成绩") = n AndAlso t.rows(i+1)("成绩") = n Then
            flag1 = True
            flag2 = True
            flag = True
        End If
    Else
        If flag1 Then
            If t.rows(i)("成绩") = n+1
                t.rows(i)("标记") = "合格"
                flag1 = False
            End If
        End If
        If flag2 Then
            If t.rows(i)("成绩") = n-1
                t.rows(i)("标记") = "合格"
                flag2 = False
            End If
        End If
        If flag1=false AndAlso flag2=false Then
            Exit For
        End If
    End If
Next

[此贴子已经被作者于2017/7/10 17:08:32编辑过]

主题：[求助]标记表中数值加减关系的行，基于数值加减关系查找