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()
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)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4475&post_id=18513