• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Foxpro CodeS-SourceS
begin process at 2008 05 12 09:08:02
1 170 164 membres
68 nouveaux aujourd'hui
13 956 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTENUS DANS UN FORMULAIRE


Information sur la source

Catégorie :Formulaires Classé sous : création, table, objet, formulaire, liste Niveau : Initié Date de création : 14/12/2005 Vu : 4 995
Auteur : aumeric Site perso
Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

23/11/2005

Bonjour à toutes et à tous

Pour faire suite à la demande de Mohamed et Samir, voici un bout de code à mettre dans un bouton d'un formulaire, qui permettra d'obtenir la liste complète des objets   avec leur référence parentale.

Bonne prog à tous

Atoutfoxement bien sur

Source

  • create table objliste.dbf free (nom c(50),parent c(50))
  • index on nom tag nom
  • index on parent tag parent
  • thisform.saveas("lstobj.dbf")
  • use lstobj.dbf in 0
  • select lstobj
  • locate
  • scan
  • select objliste
  • append blank
  • replace nom with lstobj.objname
  • replace parent with lstobj.parent
  • select lstobj
  • endscan
  • select lstobj
  • use
  • select objliste
  • use 
create table  objliste.dbf free (nom c(50),parent c(50))
 index on nom tag nom
 index on parent tag parent

 thisform.saveas("lstobj.dbf")
 use lstobj.dbf in 0
 select lstobj
 locate
 scan
select objliste
append blank
replace nom with lstobj.objname
replace parent with lstobj.parent
select lstobj
 endscan
select lstobj
use
select objliste
use
  • signaler à un administrateur
    Commentaire de dhardy le 20/12/2005 08:47:35

    Bonjour,

    Est-ce possible de le faire pour toutes les formulaires ouverts ?
    Si oui, comment ?

    Merci

  • signaler à un administrateur
    Commentaire de tmcuh le 01/09/2006 09:28:16

    Function SearchForms
    Parameters psNameForm
    Local i
    i = 0
    For Each oFrm In _Screen.Forms && boucle sur chaque fenêtre
    i = i +1
    If(Alltrim(Upper(oFrm.Name)) = Alltrim(Upper(psNameForm))) && la feuille est trouvé
    Exit
    Endif
    Next
    Return i
    Endfunc

    après tu n'a plus qu'à faire _screen.Forms[SearchForms("nomdelafeuille")].saveas("lstobj.dbf")

    Sinon bien joué aumeric, j'avais pas pensé à cette technique xD

Ajouter un commentaire

Discussions en rapport avec ce code source

Formulaire par Domatreal

combobox dans un formulaire par brunaux

Gestion d'objet par spoutnic_37

Formulaire premier niveau et enfant . par spoutnic_37

formulaire-->Excel par Domatreal

a faire et ne pas faire en VFP par brunaux

pb d'exe ! par spoutnic_37

Différents formats de dbf par pledoux

modifier la structure d'un table sous VB par pledoux

re-combobox dans formulaire par brunaux

Appels d'offres

Developpement modifica...
Budget : 1 000€
ads manager - position...
Budget : 90€
ajout simpleviewer pro...
Budget : 175€

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
Moteur de recherche Mozbot Dotnet-News.com AtoutFox.org forum informatique Colocation dans toute la France DOTNET-PROJECT.COM


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
FoxproFR.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,4063-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.