Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизСоздание Lookup полей программно Найти похожие ветки
← →
DmitryA (2001-12-21 20:12) [2]Ладно, че рассуждать? Идти за пивом или нет?!
// ...где-то в начале объявлений...
var LookupField: TStringField; // или поле другого типа
// ...где-то в теле программы...
Table.Close();
// для прля типа TStringField!
LookupField := TStringField.Create(self); // от формы
LookupField.FieldName := "MyLookupField";
LookupField.DataSet := Table;
LookupField.Size := 20;
LookupField.FieldKind := fkLookup;
LookupField.LookupDataSet := HostTable;
LookupField.LookupResultField := "NAME";
LookupField.LookupKeyFields := "NAME_ID";
LookupField.KeyFields := "ID";
LookupField.Lookup := true;
Table.Open();
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c