добрейшего денька!
если создать два TClientDataSet в дизайнере и заполнить их необходимыми полями со связями, то после запуска программы всё отображается как надо
но если создавать всё то же самое в Run-Time то LookUp поле первого TClientDataSet не показывает выбранное значение из второго TClientDataSet
FormCreate
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
procedure TForm.Create(Sender: TObject);
var
Field1, Field2, Field3, Field4: TField
begin
{ +++++ ClientDataSet2 +++++ }
{ авто добавляемое поле порядкового номера }
Field1 := TAutoIncField.Create(nil);
Field1.FieldName := 'id';
Field1.Visible := True;
Field1.FieldKind := fkData;
Field1.DataSet := ClientDataSet2;
ClientDataSet2.Fields.Add(Field1);
{ текстовое поле с данными }
Field2 := TStringField.Create(nil);
Field2.FieldName := 'name';
Field2.Visible := True;
Field2.FieldKind := fkData;
Field2.Size := 5;
Field2.DataSet := ClientDataSet2;
ClientDataSet2.Fields.Add(Field2);
{ ----- ClientDataSet2 ----- }
{ +++++ ClientDataSet1 +++++ }
{ номер выбранного значения из ClientDataSet2 }
Field3 := TIntegerField.Create(nil);
Field3.FieldName := 'id_izmer';
Field3.Visible := True;
Field3.FieldKind := fkData;
Field3.DataSet := ClientDataSet1;
ClientDataSet1.Fields.Add(Field3);
{ текстовое поле с данными из ClientDataSet2 }
Field4 := TStringField.Create(nil);
Field4.FieldName := 'izmer';
Field4.Visible := True;
Field4.FieldKind := fkLookup;
Field4.Size := 5;
Field4.DataSet := TClientDataSet(DataSet);
{ заполнение данных для LookUp }
Field4.KeyFields := 'id_izmer';
Field4.LookupKeyFields := 'id';
Field4.LookupResultField := 'name';
Field4.LookupDataSet := ClientDataSet2;
ClientDataSet1.Fields.Add(Field4);
{ ----- ClientDataSet1 ----- }
ClientDataSet2.CreateDataSet;
ClientDataSet2.Active := True;
ClientDataSet1.CreateDataSet;
ClientDataSet1.Active := True;
end;
после запуска заполняю некоторыми значениями DBGrid2 с привязанным ClientDataSet2
делаю выбор в LookUp поле DBGrid1 - и значение в поле id_izmer меняется, а в самом поле izmer пустота
подскажите что я сделал не так?
