Привет!!!
Это опять я, с ламерскими вопросами. ;))) Проблема в следующем:

Есть некая база rest.mbd, в которой находится 2 таблицы:

Таблицица: Menu


Таблица: MenuGroups


Мне необходимо связать эти две таблицы по GroupId, с помощью DataList и DataCombo. Другими словами, в DataCombo должны отображаться группы из таблицы MenuGroups, когда пользователь выбирает одну из групп, то в DataList заносятся все меню, из таблицы Menu, которые относятся к выбранной группе.

Т.е. примерно так выглядит программа:

Только как видно из примера, там отображён весь список меню, а мне необходимо, что бы при выборе Warm food, в DataList отображались только те меню, где GroupId = 2

Как настроить элементы, DataList и DataCombo, что бы они правильно отображали данные???

Спасибо.

может хоть как нибудь поможет
http://www.microsoft.com/Rus/Msdn/Activ/MS...rolsVB60-2.mspx

Это сообщение отредактировал(а) M.E.G.U.S - 26.5.2005, 07:33

M.E.G.U.S - за ссылку спасибо, но у меня есть точно такой же пример в книге. Честно говоря, я нифига из него не понял, точнее сказать, понял но не совсем. Вот например как связать DataGrid с DataCombo я понял, а вот как сделать сязку DataCombo и DataList нет. Я уже всю ночь пытаюсь реализовать по данному прмеру, интересующую меня связку. Прихожу постоянно к одному и тому же результату:
В DataCombo, всё как и задумывалось, а вот в DataList так и получаю весь список, независимо от того, какая группа выбрана в DataCombo =((

Я вот счас попробывал написать .. получилось типа такого

Код

Option Explicit Dim Db As Database Dim Rst As Recordset Dim Rst2 As Recordset Private Sub cmbMenu_Click() On Error GoTo oshibka Rst.MoveLast nachalo: If Rst.Fields("Index") = cmbMenu.ItemData(cmbMenu.ListIndex) Then lstRaz.AddItem (Rst.Fields("Name")) End If Rst.MovePrevious GoTo nachalo oshibka: End Sub Private Sub Form_Load()     Set Db = OpenDatabase(App.Path & "\proba.mdb")     Set Rst = Db.OpenRecordset("SELECT * FROM Menu ORDER BY Index")     Set Rst2 = Db.OpenRecordset("SELECT * FROM MenuGroups ORDER BY GroupId")      On Error GoTo oshibka Rst2.MoveLast nachalo: cmbMenu.AddItem (Rst2.Fields("MenuGroup")) cmbMenu.ItemData(cmbMenu.NewIndex) = Rst2.Fields("GroupId") Rst2.MovePrevious GoTo nachalo Exit Sub oshibka: End Sub

короче работает на принципе что из одной базы данных берёт две таблицы с разными именами, потом програмно добавляем в КомбоБокс значения из МенуГроуп и пишем код при нажатии на Комбобокс если его значение ровно 1 или 2 то проидёт всей базой и выпишится в листбокс

ты так хотел?

вот и сам весь пример

Это сообщение отредактировал(а) M.E.G.U.S - 26.5.2005, 17:17

Присоединённый файл ( Кол-во скачиваний: 4 )
 svyaz_data_s_data2.zip

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

Это сообщение отредактировал(а) M.E.G.U.S - 26.5.2005, 18:03

M.E.G.U.S - спасибо тебе за желание помочь, просто с помощью DataCombo и DataList можно реализовать всю эту байду не написав ниодной строки кода. Я даже как-то делал это, я теперь всё напрочь забыл. Но я уже кстати решил воспользоваться обычными елементами ComboBox и ListBox. Просто времени у меня мало, в воскресение должен закончить, но закладочку в книге я сделал на данной теме, что бы потом вернуться к ней.

Собственно есть ещё один маленький вопрос, но он настолько мал, что я не вижу смысла создавать для него отдельный топик. Потому задам его здесь.
Подскажите, можно ли при добавлении елемта списка в ListBox или ComboBox сохранять какое нить число, что бы потом можно было обращаться к нему по выделенному элементу??? Что то типа Tag, но не для всего списка один, а для каждого элемента списка.

Код

cmbMenu.AddItem (Rst2.Fields("MenuGroup"))   'так ты задаешь имя которое показываеться cmbMenu.ItemData(cmbMenu.NewIndex) = Rst2.Fields("GroupId") 'а так можешь задать число.. я в примере так сделал

работает и на листбокс и на комбобокс одинаково помойму

Цитата(korob2001 @ 26.5.2005, 19:37)

DataCombo и DataList можно реализовать всю эту байду не написав ниодной строки кода. Я даже как-то делал это, я теперь всё напрочь забыл.

интерестно надо будет посмотреть меня это тоже интересует...

Это сообщение отредактировал(а) M.E.G.U.S - 26.5.2005, 22:33

Спасибо, сейчас буду пробовать.