- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]foxtable如何统计行间距（行号计算） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101345)
-- 发布时间：2017/5/29 8:44:00
-- [求助]foxtable如何统计行间距（行号计算）
| 第一列 | 第二列 | 第三列 | |
| 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
求大神指点！
-- 发布时间：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
End If
Next
-- 发布时间：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
-- 发布时间：2017/5/30 8:35:00
-- 感谢大神指导！祝工作顺利，生活愉快！
感谢大神指导！问题已解决！祝工作顺利，生活愉快！
-- 发布时间：2017/5/30 8:36:00
-- 感谢
感谢大神指导！祝工作顺利，生活愉快！