![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть код ... что-то не так [D6, Paradox]
Batman © (2003-02-22 15:12:00)while not KartaTb.Eof do
begin
TabSheet1 := TTabSheet.Create(Self);
TabSheet1.Caption := "что-то";
TabSheet1.PageControl := PageControl1;
ZaklEdit := TDBRichEdit.Create(Self);
with ZaklEdit do
begin
Parent := TabSheet1;
DataSource := DM.KartaDSource;
ZaklEdit.DataField := "Zakl";
end;
KartaTb.Next;
end;
"Zakl" - это MEMO поле в базе. Если в базе несколько записей, то на всех TabSheet1 в DBRichEdit остается только последняя запись.
Batman (2003-02-27 10:13:00) [1]Спасибо, проблема решена.
Отдельное спасибо за памятку.
Mike_Goblin (2003-02-22 15:41:00) [2]Еще раз прошу прощения за ошибки в тексте
Mike_Goblin (2003-02-22 15:40:00) [3]Блин ну вам хоть памятку пиши, как посты создвать
1. Я хочу реализовать ....
2. Я делаю это так ... (исходный код)
3. В строке программы ... возникает ошибка ....
по теме -
1. ты хочешь записи набора данных оторбразить в виде закладок с текстом, содержащим текст одного из полей набора данных
2. Код есть, слава кпсс
3. Проблема: на всех закладках отображается текст последней записи
Ответ: ты в цикле проходишь по всем записям и останавливаешься на последней. Элемент управления выбранный для отображения текста - data-aware, т.е автоматически отображает текущую запись. Выход использовать обычный RichEdit, не чувствительный к изменениям в наборе данных