[求助]foxtable如何统计行间距（行号计算） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]foxtable如何统计行间距（行号计算）

共有3104人关注过本帖树形打印复制链接主题：[求助]foxtable如何统计行间距（行号计算）

玉淙诤

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

加好友

发短信

等级：婴狐帖子：8 积分：128 威望：0 精华：0 注册：2017/5/20 16:39:00

[求助]foxtable如何统计行间距（行号计算） 发帖心情

Post By：2017/5/29 8:44:00 [只看该作者]

	第一列	第二列	第三列
1	张
2	王		男
3	李
4	赵		男
5	高
6	陈
7	刘		男
8	马
9	周		男
10	李

数据如上，第三列第一个男所在行号2，第二个男所在行号4，第三个男所在行号7，第四个男所在行号9。

怎么对第三列 = 男时行号，找第三列 = 男的上一行行号，行号做差，求得行间距。

上述数据结果：9-7 = 2

7-4 = 3

4-2 = 2

2-0 = 0

求大神指点！

2900819580

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

加好友

发短信

等级：六尾狐帖子：1367 积分：9993 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2017/5/29 9:10:00 [只看该作者]

Dim tb As Table = Tables("表A")

Dim Ei As Integer = 0

Dim Si As Integer

For i As Integer = tb.Rows.Count To 0 Step -1

Dim r As Row = tb.Rows(i)

If r("第三列") = "男" Then

If ei = 0 Then ei = i

If ei > 0 Then

si = i

MessageBox.Show(ei & "-" & si & "=" & ei - si)

ei = i

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/29 9:50:00 [只看该作者]

Dim t as table = tables("表A")
Dim pidx As Integer = -1
For i As Integer = 0 To t.rows.count-1
    If t.rows(i)("第三列") = "男" Then
        t.rows(i)("第二列") = i - pidx
        pidx = i
    End If
Next

玉淙诤

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

加好友

发短信

等级：婴狐帖子：8 积分：128 威望：0 精华：0 注册：2017/5/20 16:39:00

感谢大神指导！祝工作顺利，生活愉快！ 发帖心情

Post By：2017/5/30 8:35:00 [只看该作者]

感谢大神指导！问题已解决！祝工作顺利，生活愉快！图片点击可在新窗口打开查看

玉淙诤

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

加好友

发短信

等级：婴狐帖子：8 积分：128 威望：0 精华：0 注册：2017/5/20 16:39:00

感谢

Post By：2017/5/30 8:36:00 [只看该作者]

感谢大神指导！祝工作顺利，生活愉快！

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

主题：[求助]foxtable如何统计行间距（行号计算）