Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DATAENVIRONMENT~
Message
De
30/12/1999 02:23:35
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00308730
Message ID:
00310260
Vues:
46
i think pack it once a week is acceptable.
but will the methos " copy the non-deleted record to a new
table and replace the previous " time consuming??

also, now i found a problem on printer a report, what i want to print
out is, each report can only contain 10 item , if more than 10 , goon to the next report. but now, when i print a report, it print out many many pages that's
not the actual number of page. this is my code:

SELECT REPORT_C2
REC = RECCOUNT()
TO_PAGENO = 0
IF REC > 11
DO WHILE (REC > 11 )
REC = REC - 10
TO_PAGENO = TO_PAGENO + 1
IF REC > 0 AND REC < 11
TO_PAGENO = TO_PAGENO + 1
ENDIF

ENDDO
ELSE
TO_PAGENO = 1
ENDIF
FM_PAGENO = 1

MESSAGEBOX(STR(FM_PAGENO),0,"TEST")
MESSAGEBOX(STR(TO_PAGENO),0,"TEST")


WAIT WINDOW "Printing......." TIMEOUT 3
FOR PN = FM_PAGENO TO TO_PAGENO
MESSAGEBOX(STR(PN),0,"TEST")
IF PN = 1
NITEM = 0
TPAGENO = PN
REPORT FORM SOREPORT TO PRINTER
ELSE
NITEM = 10 * (PN - 1)
TPAGENO = PN
REPORT FORM SOREPORT TO PRINTER
ENDIF
ENDFOR
ELSE
MESSAGEBOX("report no Not Found!", 0 + 48,"System")
ENDIF

RETURN

to_pageno & fm_page no is storing the number of page that i need to print out, and use by the loop.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform