Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By: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

 回到顶部