以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]挑战狐狸爸爸  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11974)
--  作者：hsh2055
--  发布时间：2011/8/18 11:28:00
--  [讨论]挑战狐狸爸爸

表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“之间的长度】代码
[此贴子已经被作者于2011-8-18 11:31:09编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/8/18 11:45:00
--  

foxtable是个数据库，不是一个电子表格。
--  作者：foxor
--  发布时间：2011/8/18 14:55:00
--  

狐表实现并不难！思路是：先将产品列以J开头的行提取出来作为一个集合；然后找出每一行所对应的序号；最后利用循环语句将相应长度累加。
--  作者：c
--  发布时间：2011/8/18 15:29:00
--  

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

 

我试试这个
--  作者：紙上不談兵
--  发布时间：2011/8/18 15:34:00
--  
嘻嘻,这个也太小儿科了吧?楼主的帖子,存心是骗点击率的!