以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92353)

--  作者：wangshuxin601 --  发布时间：2016/11/1 17:07:00 --  [求助] 我想统计截止第十行的合计数据怎么设置  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目2.table

--  作者：wangshuxin601 --  发布时间：2016/11/1 17:11:00 --   并且不改变原有行的顺序

--  作者：有点蓝 --  发布时间：2016/11/1 17:47:00 --   Dim sum As Integer For i As Integer = 0 To 9     sum += Tables("表A").Rows(i)("核定领导职数_合计") Next msgbox(sum)

--  作者：wangshuxin601 --  发布时间：2016/11/1 17:50:00 --   能不能给我附件里演示一下

--  作者：wangshuxin601 --  发布时间：2016/11/1 17:59:00 --   我试了一下，指示合计了一列的数据，我想做出一行小计的数据，每列都合计，然后能够在下一行自动插入生成的数据行

--  作者：dzy1232016 --  发布时间：2016/11/1 19:15:00 --   Dim sum As Integer=0 Tables("表A").Select(10,0) Tables("表A").InsertNew Tables("表A").Rows(10)(0)="合计" For i As Integer=3 To 4     sum=0     For j As Integer =0 To 9         sum +=Tables("表A").Rows(j)(i)     Next     output.show(i)     Tables("表A").Rows(10)(i)=sum Next For i As Integer=6 To 7     sum=0     For j As Integer =0 To 9         sum +=Tables("表A").Rows(j)(i)     Next     output.show(i)     Tables("表A").Rows(10)(i)=sum Next