Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

Уважаемые не поможете примерчиком..   Найти похожие ветки 

 
vopros ©   (2002-01-22 10:10) [0]

Как из таблица загнать в DbComboBox это понятно, но почему я потом из списка не могу выбрать нужную запись чтобы поставить фильтр по этой записи... у меня почему-то всегда первая запись в базе ..и не хочет меняться...Подскажите..


 
TSV ©   (2002-01-22 10:31) [1]

Потому как таблицы у тебя связаны по кодам, а не по названиям.

procedure TSborkaComForm.FilterComboBoxChange(Sender: TObject);
begin
with DataModule1 do
begin
if FilterComboBox.Text = "Нет" then
begin
ComponentsTable.Filter := "";
end
else
begin
CatCompQuery.ParamByName("CatName").Value := FilterComboBox.Text;
CatCompQuery.Open;
ComponentsTable.Filter := "Id_cat = " + CatCompQueryId_cat.AsString;
CatCompQuery.Close;
end;
end; //with
end;

Пояснения следуют...


 
TSV ©   (2002-01-22 10:39) [2]

Есть две таблицы: комплектующие и категории комплектующих. Первая связана со второй связью вида много к одному по полю Id_cat . После выбора из ComboBox(a) посылается запрос на номер категории ( CatCompQuery). Далеше строится выражение фильтра. Можно конечно хранить информацию в каком-то массиве, но я сделал вот так. FilterComboBox заполняется и обновляется при OnFormActivate:

procedure TSborkaComForm.FormActivate(Sender: TObject);
begin
with DataModule1 do
begin
FilterComboBox.Clear;
FilterComboBox.Items.Add("Нет");
CategoriesQuery.Open;
CategoriesQuery.First;
while not CategoriesQuery.Eof do
begin
FilterComboBox.Items.Add(CategoriesQueryCat_name.Value);
CategoriesQuery.Next;
end; // while
CategoriesQuery.Close;
end; //with
end;

Удачи.


 
Gregory   (2002-01-22 10:46) [3]

Вообще то DbComboBox предназначен для выбора из списка или ввода значения для конкретного поля текущей записи DataSet. Для выбора записи из DataSet используй DbLookupComboBox.


 
vopros ©   (2002-01-22 11:54) [4]

Спасибо за ответы! Я кажется допер.



Страницы: 1 вся ветка

Текущий архив: 2002.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
3-42654
Do№
2002-01-16 22:02
2002.02.14
Как игнорировать ошибку при открытии БД


1-42711
Анатолий
2002-02-01 07:08
2002.02.14
разрешение экрана


1-42723
HDD
2002-01-30 14:57
2002.02.14
Помогите плиз!!!!


14-42864
Wonder
2001-12-25 11:36
2002.02.14
Merlin! Что же это такое началось?!


7-42885
hp1100
2001-11-08 23:18
2002.02.14
Как использовать звуковую карту в кач-ве АЦП медленно меняющегося сигнала 0-1,0 V ?