Discussion :

[nanolo]

(équivalent d’un nouveau champ type « référence » en mode conception)

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
18
19
20
21
22
23
24
25
26
27
28
29
var
   FieldTEmp : TStringField;
begin
   Table2.Fields.Clear;
   Table2.FieldDefs.Add('TIERS', ftInteger, 0, false);
   Table2.FieldDefs[0].CreateField(Table2);
   Table2.FieldDefs.Add('INTERMED', ftInteger, 0, false);
   Table2.FieldDefs[1].CreateField(Table2);
 
   /////////////////////////////////////////////////////////////////////////////
   FieldTEmp := TStringField.Create(Table2);
   FieldTEmp.DisplayLabel := 'LookUp';
   FieldTEmp.FieldName := 'LIBELLE';
   FieldTEmp.FieldKind := fkLookUp;
   FieldTEmp.KeyFields := 'INTERMED';
   FieldTEmp.Lookup := true;
   FieldTEmp.LookupDataSet := tblIntermediaire;
   FieldTEmp.LookupKeyFields := 'Code';
   FieldTEmp.LookupResultField := 'Libelle01';
   FieldTEmp.Name := Table2.Name +FieldTEmp.FieldName;
   FieldTEmp.Visible := True;
   FieldTEmp.Index := 2;
   FieldTEmp.Size := 20;
   /////////////////////////////////////////////////////////////////////////////
 
   Table2.FieldDefs.Add(FieldTEmp.FieldName, ftString , 50, false);
 
   Table2.Active := true;
End;

Il n’y a pas d’erreur à l’execution, mais seul les deux premiers champs sont affiché dans une DBGrid.

[Linkin]

Et l'ajouter dans les fields, en plus des fielddefs?

[nanolo]

Si j’ajoute Table2.FieldDefs[2].CreateField(Table2);
J’ai un message d’erreur à l’exécution « Table2: Champ ‘Libelle’ non trouvé. »
On dirait qu’il ne le considère pas comme un champ de référence : FieldKind := fkLookUp ;