Проблема поменялась....
Я переписал код. Вношу данные теперь так:
- Код: Выделить всё
Dim newpersonageRow As SettingsDataSet.PersonageRow
newpersonageRow = frmChengeWinName.SettingsDataSet.Personage.NewPersonageRow
newpersonageRow.Name = txtName.Text
newpersonageRow.Login = txtLogin.Text
newpersonageRow.Password = txtPassword.Text
frmChengeWinName.SettingsDataSet.Personage.Rows.Add(newpersonageRow)
Me.PersonageTableAdapter.Update(frmChengeWinName.SettingsDataSet.Personage)
В combobox'е теперь нормально отображается, сразу после внесения.
Но если сразу же пытаюсь удалить эту запись (без перегрузки формы) таким кодом:
- Код: Выделить всё
Dim personageRow As SettingsDataSet.PersonageRow
personageRow = SettingsDataSet.Personage.FindByКод(comboPersonage.SelectedValue)
If comboPersonage.SelectedValue = 0 Then
MsgBox("Не выбрано ни одного персонажа.")
Exit Sub
ElseIf comboPersonage.SelectedValue = -1 Then
MsgBox("Укажите еще раз персонажа")
Exit Sub
End If
personageRow.Delete()
' Save the updated row to the database
Me.PersonageTableAdapter.Update(Me.SettingsDataSet.Personage)
Определяет значение comboPersonage.SelectedValue = -1, т.е. я делаю вывод что комбобокс не получает из базы о ключе строки.
Комбобокс настроен отображать Name из таблицы Personage набора данных Settings, а передавать в SelectedValue - ключ.
Подскажите куда копать пожалуйста...