Здравствуйте, уважаемые коллеги!
Попробую, так сказать, еще раз описать проблему. На тривиальном хрестоматийном примере страны-континенты. На SQL серевере есть БД World, состоящая из двух таблиц: Continents (два поля ContinentID - int, identity и ContinentName - varchar(50)) и Countries (три поля CountrieID - int, identity, CountrieName - varchar(50) и ContinentID - int). Таблицы связаны отношением один-ко-многим. Есть FK_Countries_Continents, по полю ContinentID обеих таблиц.
В проекте создан типизированный датасет с именем WorldDataSet. В дизайнере датасета между DataTable'ами Continents и Countries есть Relation FK_Countries_Continents. По-умолчанию связь имела свойство "Relation Only", которое было вручную установлено в "Both Relation And Foreign Key Constraint". Update Rule - Cascade, Delete rule - Cascade, Accept/Reject Rule - None, флажок Nested Relation не установлен.
Не будем касаться операций изменений и удаления, остановимся только на добавлении.
На форме есть WorldDataSet1, CountriesTableAdapter, ContinentsTableAdapter, ContinentsBindingSource, CountriesBindingSource. У ContinentsBindingSource установлены свойства DataSource - WorldDataSet1, DataMember - Continents. У CountriesBindingSource установлены свойства DataSource - ContinentsBindingSource, DataMember - FK_Countries_Continents.
Требуется, чтобы при нажатии на кнопочку Button1 в таблицу Continents добавилась "Европа", а в таблицу Countries - "Германия". В обработчике события Button1.Click написан следующий код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mr As WorldDataSet.ContinentsRow
Dim dr As WorldDataSet.CountriesRow
Dim r As System.Data.DataRowView
r = CType(ContinentsBindingSource.AddNew(), System.Data.DataRowView)
mr = CType(r.Row, WorldDataSet.ContinentsRow)
r = CType(CountriesBindingSource.AddNew(), System.Data.DataRowView)
dr = CType(r.Row, WorldDataSet.CountriesRow)
mr.ContinentName = "Европа"
dr.CountrieName = "Германия"
ContinentsBindingSource.EndEdit()
CountriesBindingSource.EndEdit()
ContinentsTableAdapter.Update(WorldDataSet1.Continents)
CountriesTableAdapter.Update(WorldDataSet1.Countries)
End Sub
При этом добавляется запись только в мастер-таблицу Continents. В Countries не добавляется ничего. Ошибок никаких не возникает. Что здесь не правильно?
