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


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

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

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)


 回到顶部