Foxtable(狐表)用户栏目专家坐堂 → [原创]求助:字符列的数字统计


  共有6450人关注过本帖树形打印复制链接

主题:[原创]求助:字符列的数字统计

帅哥哟,离线,有人找我吗?
ZHX241806
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
[原创]求助:字符列的数字统计  发帖心情 Post By:2013/7/24 7:10:00 [只看该作者]

求助:如何做一个按扭,对窗口表中字符列的某一部分的数字进行统计,谢谢!!!


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/7/24 7:48:00 [只看该作者]

你这个需要找出数字,然后计算.

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/24 7:52:00 [只看该作者]

Dim sum As Double
For Each r As Row In Tables("表A").Rows
    sum + = Val(r("第一列"))
Next
MessageBox.Show(sum)


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/7/24 19:54:00 [只看该作者]

谢谢!确实很好,但是,你这个代码是指第一列的字符中数字进行统计,如果是选中表中任一列的字符数字能进行统计那就更好了,就这样的代码如何写?谢谢!!!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/7/24 20:07:00 [只看该作者]

Dim sum As Double
For Each r As Row In Tables("表A").Rows

     For each c As Col in Tables("表A").Cols
           sum + = Val(r(c.name))

     next
Next
MessageBox.Show(sum)


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/7/25 6:46:00 [只看该作者]

试用了一下,发现一个问题,第一个代码是对整个字符列进行统计,第二个代码是对整个表的字符数字进行统计,而我想要的是对某个列选中的部分进行统计,请问代码如何写?


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/25 7:35:00 [只看该作者]

针对任意当前表,任意选定区域,你想咋滴就咋滴:

Dim sum As Double
Dim t As Table = CurrentTable
For i As Integer = t.TopRow To t.BottomRow
    For j As Integer = t.LeftCol To t.RightCol
        sum + = Val(t.Rows(i)(j))
    Next
Next
MessageBox.Show(sum)


 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2013/7/25 9:34:00 [只看该作者]

sum + =

请问这个是什么逻辑图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/25 9:41:00 [只看该作者]

以下是引用yan2006l在2013-7-25 9:34:00的发言:

sum + =

请问这个是什么逻辑图片点击可在新窗口打开查看


和 sum= sum+ 是一样的 只是语法中简写而已.

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/7/25 19:25:00 [只看该作者]

太棒了,谢谢!!!


 回到顶部
总数 11 1 2 下一页