Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / в clientdataset надо в рантайме прописывать названия полей / 2 сообщений из 2, страница 1 из 1
11.07.2003, 19:36
    #32206163
Alexander2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
в clientdataset надо в рантайме прописывать названия полей
в clientdataset надо в рантайме прописывать названия полей

количесвто и названия динамические и берутся из другого датасета, который тоже динамически создается, то есть как переписать-вписать такие же названия полей моему новорожденному clientdataset такие же как у другого dataset
-------------
на момент создания cdsExtraWell уже создан tadoFinal и можно было бы взять названия полей из него и вписать в новый но как это закодировать?


думал так сделать, но застрял

procedure TfFinal.chlbAddWellClick(Sender: TObject);
var tf: TFields;
begin
tf:=tfields.create(nil);
ListBoxMyFieldNames.Clear;

For i:=0 to dmMain.tadoFinal.FieldCount-1 do
ListBoxMyFieldNames.Items.Add(dmMain.tadoFinal.Fields .FieldName);


cdsExtraWell.Close;
cdsExtraWell.CreateDataSet;

for i:=0 to ListBoxMyFieldNames.Items.Count-1 do
begin
tf:= ListBoxMyFieldNames.Items; [Error] f_Final.pas(2868): Incompatible types: 'TFields' and 'String'
cdsExtraWell.Assign(ListBoxMyFieldNames.Items);
end;
...
Рейтинг: 0 / 0
11.07.2003, 20:32
    #32206188
Hammer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
в clientdataset надо в рантайме прописывать названия полей
procedure TfFinal.chlbAddWellClick(Sender: TObject);
begin
...
cdsExtraWell.Data := null;
cdsExtraWell.FieldDefs.Clear;
cdsExtraWell.FieldDefs.BeginUpdate;
try
cdsExtraWell.FieldDefs := dmMain.tadoFinal.FieldDefs;
finally
cdsExtraWell.FieldDefs.EndUpdate;
end;
...
end;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / в clientdataset надо в рантайме прописывать названия полей / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]