Tengo varios ComboBox en un Form1 y en cada uno un ítem "Añadir" que seleccionándolo presenta otro form (FrmAñadir) con un Txt y BtnAceptar. Mediante una propiedad ReadOnly retorno el valor al Form1 y añade como ítem al Combo seleccionado. El problema viene cuando tengo que añadir ese ítem a la base de datos:
Form1:
Private Sub cmbarray_selectedindexchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb1.SelectedIndexChanged, Cmb2.SelectedIndexChanged, Cmb3.SelectedIndexChanged, Cmb4.SelectedIndexChanged, Cmb5.SelectedIndexChanged, Cmb6.SelectedIndexChanged
Try
Dim combo As ComboBox = DirectCast(sender, ComboBox)
If combo.SelectedItem = "Añadir" Then
Dim fa As New FrmAñadir
If fa.ShowDialog() = DialogResult.OK Then
combo.Items.Insert(0, fa.OpcionNueva)
combo.Text = fa.OpcionNueva
MessageBox.Show("se ha añadido: " & fa.OpcionNueva)
'' añadimos la opción a la bd
End If
fa.Dispose()
Else
combo.SelectedItem = combo.Text
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
FrmAñadir:
Public ReadOnly Property OpcionNueva() As String
Get
Return TxtAñadir.Text
End Get
End Property
¿Cómo añado la nueva opción en el lugar correcto de la base de datos?
¿Asociando cada Combo al registro de su tabla? ¿Cómo?
