WDForge.org - Forums - WD 10 - [resolu]:roblème avec combo recherche valeur

Index des forums WDForge.org

WD 10

[resolu]:roblème avec combo recherche valeur

Bas

Suivant S'enregistrer pour contribuer

[resolu]:roblème avec combo recherche valeur

Stagiaire WDF

Inscrit:
07/05/2006 20:17

Post(s): 31

Bonjour,

je remplit à l'aide de la procédure suivante:

PROCEDURE MAJ_Combo_Famille()
// Cette procédure met à jours les champs du Combo_Famille

ResSQL est un booléen
txtREQ est une chaîne

//On établit la connexion à la base

_SQLEtablirConnexion()

// On efface tous les éléments du combo

ListeSupprimeTout(COMBO_Famille)

txtREQ="SELECT dbo.tb_produits.famille as famille from dbo.tb_produits group by famille"

ResSQL=SQLExec(txtREQ,"REQ1")

SI PAS ResSQL  ALORS
	SQLInfoGene("REQ1")
	Info("Erreur sur la requête"+SQL.MesErreur)	
SINON
	
	TANTQUE SQLAvance("REQ1") =0
		ListeAjoute(COMBO_Famille,SQLLitCol("REQ1",1))	
	FIN
	
	
	
FIN

SQLFerme("REQ1")
SQLDéconnecte()

Jusqu'ci tout fonctionne correctement les valeurs présentes dans le fichier sont ajoutés au combo.

Le problème est lorsque je clique un enregistrement j'aimerais faire afficher la valeur dans le combo. Actuellement j'ai requête qui récupère les valeurs et les affiche dans la TAB_fractionnement. A l'aide du code ci-dessous je récupére la valeur inscrit dans mon enregistrement mais je n'arrive pas à l'afficher dans le combo.

NumLigneCom est un entier // Correspond au numéro de la ligne

NumLigneFrac est  un entier // Correspond au numéro de la ligne de la table mémoire TAB_Fractionnements

NumLigneCom=TableSelect(TAB_Commandes)
NumLigneFrac=TableSelect(TAB_Fractionnements)


//Mise à jour des champs liés aux informations provenant de la TAB_Fractionnements

COMBO_Famille..Valeur=TAB_Fractionnements.COL_Designation[[1 A 2]]



ResCherche est un entier=ListeCherche(COMBO_Famille,TAB_Fractionnements.COL_Designation[[1 a 2]],Vrai)

ListeAffiche(COMBO_Famille,ResCherche)

Merci pour votre aide

Contribution le : 13/08/2006 08:16