Теперь нам нужно научиться отображать связи один ко многим. То есть когда в таблице одной записи может соответствовать много. Например, одному человеку несколько детей.
Для реализации подобных связей используется DBGrid. Немного мы о нем уже рассказывали. Хитрость подобной связи в использовании второго элемента DATA.
Второй элемент настраивается как обычно, а в DBGrid указывается свойство DataSource. Дальше нам нужно создать SQL запрос который будет делать выборку из таблицы в Data2 при изменении Data1. Происходит это когда изменяются связанные элементы.
Private Sub Text2_Change() Dim StrSQL As String Dim StrKey As String StrKey = Text2.Text StrSQL = "SELECT Name_Children FROM children WHERE ID =" & StrKey Data2.RecordSource = StrSQL Data2.Refresh DBGrid1.ReBind End Sub
Поле Text2 это поле, в котором будет находиться ID человека. При желании конечно можно сделать это поле скрытым.