Enlace a datos en controles creados en tiempo de ejecución
Publicado por Mauri (2 intervenciones) el 16/12/2014 20:48:51
Hola, ando encallado y me gustaría si alguien me pudiera orientar.
El escenario es el siguiente:
Creo varios ComboBox y TextBox en tiempo de ejecución dentro de un FlowLayoutPanel, los Combos están enlazados a una BDD Access y muestran bien los datos que necesito. El problema es que al anexar la segunda fila de controles y sucesivas filas al cambiar la selección en un combo de cualquier fila cambian los datos en todas las filas, no sólo en la fila que está situado el control. No se si me explico bien XD.
Lo que necesito es que selecciono datos en una fila, después quiero crear la segunda fila y escoger otros datos pero no lo consigo, es como si se clonasen las filas.
El codigo:
Los demas combos y txt.........
Muchas gracias de antemano y un saludo.
El escenario es el siguiente:
Creo varios ComboBox y TextBox en tiempo de ejecución dentro de un FlowLayoutPanel, los Combos están enlazados a una BDD Access y muestran bien los datos que necesito. El problema es que al anexar la segunda fila de controles y sucesivas filas al cambiar la selección en un combo de cualquier fila cambian los datos en todas las filas, no sólo en la fila que está situado el control. No se si me explico bien XD.
Lo que necesito es que selecciono datos en una fila, después quiero crear la segunda fila y escoger otros datos pero no lo consigo, es como si se clonasen las filas.
El codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private WithEvents ComboBox As New ComboBox
Private WithEvents TextBox As New TextBox
Sub Nuevo_UUCC_Valoracion()
'Rellenar Folwpanel
Dim NumeroParaNombre As Integer = My.Settings.SettingNumeroFila_Val_UUCC
'Ap
TextBox = New TextBoxTextBox.Name = "Txt" & NumeroParaNombre.ToString
TextBox.Size = Form1.TextBox1.Size
TextBox.MaxLength = Form1.TextBox1.MaxLength
TextBox.TextAlign = Form1.TextBox1.TextAlign
TextBox.Text = ""
Form1.Flw_Val_UUCC.Controls.Add(TextBox)
NumeroParaNombre = NumeroParaNombre + 1
'UUCC
ComboBox = New ComboBoxComboBox.Name = "Txt" & NumeroParaNombre.ToString
ComboBox.Width = Form1.ComboBox1.Width
ComboBox.DataSource = MiDataset.Tables(TablaBaremo)
ComboBox.DisplayMember = "CODIGO UUCC"
ComboBox.ValueMember = "Id"
Form1.Flw_Val_UUCC.Controls.Add(ComboBox)
NumeroParaNombre = NumeroParaNombre + 1
Los demas combos y txt.........
1
2
3
4
My.Settings.SettingNumeroFila_Val_UUCC = NumeroParaNombre
My.Settings.Save()
End Sub
Muchas gracias de antemano y un saludo.
Valora esta pregunta
1
