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