Re!!!
Bon j'ai un léger probleme!
J'ai une ereur du type EDatabaseError avec "QArbo, le champ 'Index_FL_2 non trouvés"
Alors qu'il existe! voici mon code en entier :
Vous sauriez pourquoi vous...???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 VAR concatener,concatener2 : String[50]; begin IF Treeview2.Selected.Level <> 0 THEN BEGIN concatener := 'Functional_Level_' + IntToStr(TreeView2.Selected.Level); concatener2 := 'Index_FL_' + IntToStr(TreeView2.Selected.Level); WITH DataModule1.QArbo Do BEGIN SQL.Clear; SQL.Add('SELECT * FROM Arbo_Fonctionelle'); SQL.Add('WHERE '+ QuotedStr(concatener)+' = '+ QuotedStr(TreeView2.Selected.Text)+''); ExecSQL; IFL_Label.Caption := FieldByName(''+ QuotedStr(concatener2)+'').AsString; END; END; end;
Partager