主题：[讨论]挑战狐狸爸爸

表A如下： 

 

序号	产品	长度	自动计算两”J“之间的长度	说明
1	J30	0
2	A1	1
3	A2	1
4	J20	1	3	=产品列上一个"J"与此"J"之间的长度
5	A3	2
6	A4	2
7	A5	2
8	J60	1	7	=产品列上一个"J"与此“J”之间的长度
9	A6	1
10	A7	2
11	D	2	5	=上一个"J"与D的长度

求列【自动计算两”J“之间的长度】代码

foxtable是个数据库，不是一个电子表格。

狐表实现并不难！思路是：先将产品列以J开头的行提取出来作为一个集合；然后找出每一行所对应的序号；最后利用循环语句将相应长度累加。

Dim i As Double = Tables("表A").Rows.count
Dim h As Row
Dim j As Double
For j = 0 To i-1
    h=Tables("表A").Rows(j)
    If h("第三列") Like "j*" Then '找到 以 j 开头的
        output.show("找到表格的位置是 " & j+1) '输出到控制台
    End If
Next

 

我试试这个