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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]标记表中数值加减关系的行，基于数值加减关系查找

共有2257人关注过本帖树形打印复制链接主题：[求助]标记表中数值加减关系的行，基于数值加减关系查找

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/10 15:42:00 [显示全部帖子]

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/10 16:20:00 [显示全部帖子]

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

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/10 17:03:00 [显示全部帖子]

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/10 17:08:00 [显示全部帖子]

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编辑过]

下一主题 >> << 上一主题

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