Re: Problème pour remplir table

Posté par acapron le 1/5/2008 18:31:17
Salut,

je vais te donner un exemple de code, cependant il faut comprendre le principe. Dans un premier temps il faut
trouver l index de la ligne sélectionnée dans ta première table, pour cela tu peux utiliser une variable et une formule du type
MonIDClient = MafenêtreClient.MatableClient.IDtableClient

Ou encore utiliser la fonction Glien()permettant de mémoriser une valeur d index à laquelle tu peux ensuite faire référence comme dans l exemple ci dessous...

Ensuite tu devrais lancer une recherche dans ton fichier
par exemple

HlitRecherche(MonfichierCommande,IDClient,MonIDClient)

Et ensuite Htrouve...

A ce moment là tu peux procéder à l affectation du résultat dans ta Table mémoire

EXEMPLE EXEMPLE EXEMPLE
TableSupprimeTout(Table_FacturesVenteErah)
HLitRecherche(FacturesVenteErah,IDClients,MoiMême..ValeurMémorisée)
TANTQUE HTrouve(FacturesVenteErah)
 HLitRecherche(Commandes,IDCommandes,FacturesVenteErah.IDCommandes)
 SI HTrouve(Commandes) ALORS
  TableAjoute(Table_FacturesVenteErah,FacturesVenteErah.IDFacturesVenteErah+TAB+FacturesVenteErah.DateFacture+TAB+FacturesVenteErah.Numero...
	+TAB+Commandes.NCommandeClient+TAB+FacturesVenteErah.TauxTVA+TAB+FacturesVenteErah.MontantHT+TAB+FacturesVenteErah.MontanttVA+TAB+FacturesVenteErah.MontantTTC)
  FIN
 HLitSuivant(FacturesVenteErah)
FIN

Bon courage et bon développement...

Arnaud

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=5684&post_id=23710