ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Vues non trouvées2   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 25 mai 2020, 21h30
BONEMME
atoutfox.public.association

Re: Vues non trouvées2


Le 25/05/2020, Jean à Grenoble a supposé :
> Bonsoir Guy,
>
> on va aller pas à pas !
>
> Quelle est la valeur de la propriété datasession de ta form (dans les> propriétés de la form, onglet données) ? Il faudrait, pour commencer, que sa> valeur soit : '1 - session de données par défaut'.
> Ainsi, si tu ouvres ton .dbc avant de lancer la form, il sera bien reconnu> dans la form. (Après tu pourras changer si nécessaire).
>
> Comment ouvres tu ta vue ? Avec un USE mavue IN 0 par exemple ? C'est> seulement quand la vue sera ouverte avec USE que tu pourras faire un SELECT> mavue (et ceci seulement si tu n'as pas fait
> SELECT 0
> USE mavue
> parce que là la vue est bien sélectionnée).
>
> Si c'est une vue paramétrée, tu peux fair un USE mavue IN 0 NODATA ...
>
> Réponds à ces questions, puis on verra pour la suite !
>
>
> Jean à Grenoble

Bonsoir Jean
Merci de te pencher sur mon pb.
En réponse aux questions:
session de données par défaut valeur bien à 1
Le DBC est ouvert dans un prg de démarrage qui fixe les SET et les Path

ON ERROR DO ErrorHandler WITH ERROR( ), MESSAGE( ), MESSAGE(1),PROGRAM( ), LINENO(1)

*!* Set up the initial environment
DO SetCommands
DO SetupScreen
DO SetupMenu
DO SetupDatabase

*!* Bring up the application form
DO FORM couples_chx

*!* Setup Quit Routine
ON SHUTDOWN CLEAR EVENTS && if user quits app then run ProperShutdownprocedure

*!* Start event processing loop
READ EVENTS

DO ProperShutdown
------------------------
_SCREEN.ADDPROPERTY("DataPath", ADDBS(SYS(5) + SYS(2003)) + "Data\")
********************
PROCEDURE SetupDatabase
********************
*!* Open and set the database
*SET STEP ON
OPEN DATABASE (_SCREEN.datapath + "aa_couple")
SET DATABASE TO aa_couple
ENDPROC
---------------------------
Dans la form

* Un choix utilisateur (Coptiongroup...)

Un box d'entrée

Dans son Lostfocus
txtNom = THIS.Value
txtNom = ALLTRIM(txtNom)+REPLICATE(" ",76-LEN(ALLTRIM(txtNom)))
txtNomx = ALLTRIM(txtNom)+REPLICATE("z",76-LEN(ALLTRIM(txtNom)))
txtNom = UPPER(txtNom)
txtNomx = UPPER(txtNomx)

USE hf IN 0

*SELECT hf

DO CASE
CASE Thisform.coptiongroup1.cOptionbutton1.value = 1
SELECT vrech_epx
REQUERY("vrech_epx")
COPY TO d_A
SELECT tmpd *curseur temporaire vide créé dans le load de laform
APPEND FROM d_A.dbf
DELETE FILE d_A.dbf
DELETE FILE d_A.fpt
......
ENDCASE

This.value ==
GO TOP
TTHISFORM.cgrid1.column1.text1.Set Focus
LOCATE

Pour info j'ai utilisé ce système dans un prog il y a 10a un dbc,3tables et une 20aines de vues sans pb et il fonctionne!

--Guy Bonemme

--Cet email a fait l'objet d'une analyse antivirus par AVG.
http://www.avg.com

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019639
19 581 messages dans le forum • Liste complète des messages

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2020.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3