当前位置: > 英语翻译...
题目
英语翻译
Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)
sum1 = sum1 + Me.金额.Value
sum11 = sum11 + Me.税额.Value
sum111 = sum111 + Me.合计.Value
lngA = lngA + 1
Dim lngRows As Long
Dim intAllRows As Integer '包括空行,完整的行数.
Dim objCtl As Control
lngRows = 21 '这个行数请调整到和你报表的行数减1.
If intAllRows = 0 Then
If txtTotGrp Mod lngRows = 0 Then
intAllRows = txtTotGrp
Else
intAllRows = (Fix(txtTotGrp / lngRows) + 1) * lngRows
End If
End If
Debug.Print intAllRows
If lngA = txtTotGrp And lngA < intAllRows) Then
Me.NextRecord = False
Else
Me.NextRecord = True
End If
Else
Me.NextRecord = True
End If
End Sub

提问时间:2021-03-29

答案
sum1 = sum1 + Me.金额.Value
sum11 = sum11 + Me.税额.Value
sum111 = sum111 + Me.合计.Value
Rem sum1的值是sum1加上me.金额的值,sum11的值是sum1加上me.金额的值,sum111的值是sum1加上me.金额的值
Rem 这里的me应该要有自定义的数据类型,没上文交代.
lngA = lngA + 1
Dim lngRows As Long
Dim intAllRows As Integer '包括空行,完整的行数.
Dim objCtl As Control
lngRows = 21 '这个行数请调整到和你报表的行数减1.
Rem lnga的值加1,定义一些数据类型,这也没上文交代,包括control,好像没这种数据类型.
If intAllRows = 0 Then
If txtTotGrp Mod lngRows = 0 Then
intAllRows = txtTotGrp
Else
intAllRows = (Fix(txtTotGrp / lngRows) + 1) * lngRows
End If
End If
Debug.Print intAllRows
Rem 如果 intallrows 为0时,如果txttotgrp能整除lngrows,intallrows值等于txttotgrp,否则intallrows值等于txtTotGrp 除以lngRows值 + 1,取它整数部分值乘lngrows
If lngA
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.