Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
3 unrelated files into one report
Message
 
 
À
26/04/2007 13:36:20
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01219736
Message ID:
01220209
Vues:
17
>I would set focus on the button before collecting data in the cursor. It must work.

Just wondering why setting it there worked, but not right before the report invocation?
thisform.cmdPrint.visible = .t.
thisform.cmdPrint.SetFocus()
SELECT cDescription as cSoftware, ;
000000 as nRec1, iActive_Flag as iSoftware_active ;
FROM crsSoftware ORDER BY 1 INTO CURSOR curSoftware readwrite

replace ALL nRec1 WITH RECNO() IN curSoftware

SELECT cDescription as cHardware, ;
000000 as nRec2, iActive_Flag as iHardware_active ;
FROM crsHardware ORDER BY 1 INTO CURSOR curHardware readwrite

replace ALL nRec2 WITH RECNO() IN curHardware

SELECT cDescription as cOther, ;
000000 as nRec3, iActive_Flag as iOther_active ;
FROM crsOther ORDER BY 1 INTO CURSOR curOther readwrite

replace ALL nRec3 WITH RECNO() IN curOther

SELECT * from curSoftware cs FULL JOIN curHardware ch ;
ON cs.nRec1 = ch.nRec2 FULL JOIN curOther co ON cs.nRec1 = co.nRec3 INTO CURSOR curReport
SET NULLDISPLAY TO ""
USE IN curOther
USE IN curSoftware
USE IN curHardware

SELECT curReport
*!*	browse

REPORT FORM Software_Hardware_Other PREVIEW

USE IN curReport
thisform.cmdPrint.Visible = .f. 
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform