Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Delphi 6, DBGrid

Здравствуйте все,

Вопрос!
Как сделать, что-бы в ячейке была возможность выбирать из списка?
Точнее подцепить ComboBox со значениями.
С удовольствием глянул бы исходник!!

Ответить   Wed, 28 Jan 2004 15:22:29 +0500 (#65797)

 

Ответы:

Приветец, Шистеров!

Привет...

Если хочешь подцепить список из таблицы - просто создай LookUp-поле.
Грид сам создаст тебе комбу. Если список фикс. значений - используй
свойство PickList в гриде. А вообще - рекомендую EhLib. Позволяет
задать пиклист и к его строчкам значения поля отдельно присвоить.

А он тебе и не понадобится :)

Ответить   Шевченко Сергей Thu, 29 Jan 2004 09:00:03 +0400 (#66305)

 

Здравствуйте, Шевченко,

Спасибо на добром слове, с этим я разобрался. Но тут немного другая
проблема. Собственно ComboBox в ячейке мне нужен для удобной навигации
по подчиненной таблице, а не подстановка значения.
На текущий момент есть вариант с формированием списка значений
свойства PickList в событии прорисовки ячейки. Буду делать, чтобы
понять "ху из ху".

По поводу компонента (библиотеки) EhLib, можешь скинуть по почте, а то инет никакой?

Ответить   Thu, 29 Jan 2004 13:42:43 +0500 (#66398)

 

-----Original MessageFrom: Шистеров Павел Михайлович [mailto:schis-pm@j*****.ru]

Спасибо на добром слове, с этим я разобрался. Но тут немного другая
проблема. Собственно ComboBox в ячейке мне нужен для удобной навигации
по подчиненной таблице, а не подстановка значения. На текущий момент
есть вариант с формированием списка значений свойства PickList в
событии прорисовки ячейки. Буду делать, чтобы понять "ху из ху".

По поводу компонента (библиотеки) EhLib, можешь скинуть по почте, а то
инет никакой?

Ответить   "victorkyd" Sat, 31 Jan 2004 02:35:47 +0300 (#66880)

 

Здравствуйте, victorkyd,

Может оно и лучше, но в мой интерфейс не входит! :))
На форме отражается ГЛАВНАЯ таблица и поля для редактирования одной
записи подчиненной таблицы. Если честно для меня это не удобно, но
ориентируюсь на не шибко продвинутых пользователей. Избыток выводимой
информации только повредит. Хотя это только наброски. Возможно как-то
по другому сделаю!!:))

Ответить   Fri, 30 Jan 2004 08:29:10 +0500 (#66916)

 

Приветец, Шистеров!

В таком случае - используй TDBLookupComboBox, но:
не указывай ему DataSource и DataField
а укажи только ListSource, ListField и KeyField.

В этом случае в него грузятся все записи из таблицы в ListSource,
и при выборе значения из списка курсор в таблице переходит на
выбранную запись. Так-то удобная вещь... Т.е. и получается навигатор
по таблице с помощью этого бокса.

А как подчиненную таблицу к главной прицепить ты наверное разберешься.

И еще - такая связка может иногда не очень качественно работать, это
из-за того, что обновление данных в боксе бывает происходит ДО того
как отфильтруется подчиненный датасет. В этом случае надо
принудительно при смене данных подчиненки (на событии OnChange у
datasource) поставить к примеру TDBLookupComboBox1.refresh

Ответить   Шевченко Сергей Fri, 30 Jan 2004 12:44:56 +0400 (#67205)

 

Hello Шевченко,

29 января 2004 г., 7:00:03, you wrote:

А можно ли у Вас попросить эту библиотеку или урлик на нее ?

С Ув. Feniks mailto: feni***@b*****.ua
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Feniks Thu, 29 Jan 2004 11:26:38 +0200 (#66442)

 

Для Шистеров,

Wednesday, January 28, 2004, 1:22:29 PM, Вы писали:

begin

if not Query1.Locate ('тонн', ComboBox1.Text, []) then
MessageDlg ('Открой список', mtError, [mbOk], 0);

Table1.SetKey;
Table1 ['тонн'] := ComboBox1.Text;
Table1.GotoKey;

end;

Ответить   Fri, 30 Jan 2004 12:31:38 +0300 (#67731)