dans la fenêtre j'ai
Combo_0 = [ Classeur, Articles ]
combo_1 = [ CompteTiers, TypePiece, NumeroPiece, ..... ] en fonction du choix de combo_0
string_0 = Clé de recherche
listicon = création des colonnes en fonction de Combo_0 et Titre de colonne en fonction des Noms de Champs
si Affiche = #True ont crée la Colonne ( cà je sais faire )
comment faire ce si ci-dessous
If MyDb()\getgadgettext( Combo_0() )\getgadgettext( combo_1 ) ) = getgadgettext( string_0 )
s'il y a une solution
Code : Tout sélectionner
Structure Classeur
NumEnrg.i
CompteTiers.s
TypePiece.s
NumeroPiece.s
DateEnrg.s
Debit.s
Credit.s
Acompte.s
DateEch.s
FraisDiv.s
TauxTva.s
ModeRegl.s
; List LigneDoc.Ligne()
EndStructure
Structure Db
List Classeur.Classeur()
EndStructure
Global NewList MyDb.DB()
Structure Champs
NomChamp.s
Affiche.l
EndStructure
Structure Table
Table.s
List Champ.Champs()
EndStructure
Global NewList table.table()
AddElement( table() )
table()\Table = "Classeur"
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "NumeroPiece"
table()\Champ()\Affiche = #True
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "DateEnrg"
table()\Champ()\Affiche = #True
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "CompteTiers"
table()\Champ()\Affiche = #True
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "Débit"
table()\Champ()\Affiche = #False
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "TypePiece"
table()\Champ()\Affiche = #True
AddElement( table() )
table()\Table = "Articles"
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "CodeArticles"
table()\Champ()\Affiche = #True
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "Désignation"
table()\Champ()\Affiche = #True
AddElement( table()\Champ() )
table()\Champ()\NomChamp = "RefFournisseur"
table()\Champ()\Affiche = #True
AddElement( MyDb() )
AddElement( MyDb()\Classeur() )
MyDb()\Classeur()\NumeroPiece = "26632145"
MyDb()\Classeur()\DateEnrg = "15/05/2022"
MyDb()\Classeur()\Debit = "135.22"
MyDb()\Classeur()\CompteTiers = "401049"
MyDb()\Classeur()\TypePiece = "Facture"
ForEach table()
Debug "_____________________"
Debug "> :" + table()\Table
ForEach table()\Champ()
Debug ">>>> :" + table()\Champ()\NomChamp
If table()\Champ()\Affiche
Debug ">>>>> :" + "#True"
Else
Debug ">>>>> :" + "#False"
EndIf
Next
Next
