12. September 2011 16:25
12. September 2011 16:41
REM Reset Page Number:
Shared offset as Integer
Shared newPage as Object
Shared currentgroup1 as Object
Shared currentgroup2 as Object
Shared currentgroup3 as Object
Public Function GetGroupPageNumber(NewPage as Boolean, pagenumber as Integer) as Object
If NewPage
offset = pagenumber - 1
End If
Return pagenumber - offset
End Function
Public Function IsNewPage(group1 as Object, group2 as Object, group3 as Object) As Boolean
newPage = FALSE
If Not (group1 = currentgroup1)
newPage = TRUE
currentgroup1 = group1
currentgroup2 = group2
currentgroup3 = group3
ELSE
If Not (group2 = currentgroup2)
newPage = TRUE
currentgroup2 = group2
currentgroup3 = group3
ELSE
If Not (group3 = currentgroup3)
newPage = TRUE
currentgroup3 = group3
End If
End If
End If
Return newPage
End Function
12. September 2011 16:51
12. September 2011 19:36
13. September 2011 08:59
15. September 2011 16:31