报表中主体的‘事件过程’代码是:
private Sub 报表页眉_FORMat(Cancel As Integer, FORMatCount As Integer)
文本44 = 0
文本47 = 0
文本51 = 0
文本53 = 0
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
If 用户类型.value = "正式用户" Then
文本44 = 文本44 + 1
Else
If 用户类型.value = "VIP用户" Then
文本47 = 文本47 + 1
End If
End If
If 用户类型.value = "正式用户" And 文本55 = "是" Then
文本51 = 文本51 + 1
Else
If 用户类型.value = "VIP用户" And 文本55 = "是" Then
文本53 = 文本53 + 1
End If
End If
End Sub