Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
3 unrelated files into one report
Message
 
 
À
26/04/2007 13:54:41
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:
01220216
Vues:
16
You're right. I didn't notice I was doing it in the wrong order, that was my original code
SELECT curReport
browse
thisform.cmdPrint.SetFocus()
>It could be two reasons. First of all, you shouldn't do
>
>Select mycursor
>Thisform.mybutton.setfocus
>Report form
>
>because moving focus fires some events (grid.arcc, at least) and some code there can change active area. So you should at least Select mycursor right before Report Form.
>Another thing that it's always better to give VFP some time to digest your Setfocus request, just as a precaution.
>
>>>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
Répondre
Fil
Voir

Click here to load this message in the networking platform