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