Hola Rootk¡
Gracias por tu paciencia,mira este es mi codigo,este me genera automaticamente los label y los textbox(Voy a cambiar los combobox por texbox):
Private Sub frm_registros_tras_agregar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = 0
y = 75
x = 0
Me.txt_fecha.Text = Today
Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count
For a = 1 To b
'creamos la etiqueta
Dim prueba As New Label()
prueba.Location = New Point(25, y)
prueba.Text = Me.DataSet2_consulta1.salas.Rows(x).Item(1).ToStri ng
Me.Controls.Add(prueba)
'creamos los textbox
Dim mañana As New TextBox()
Dim tarde As New TextBox()
mañana.Location = New Point(150, y)
tarde.Location = New Point(250, y)
mañana.Name = "mañana" & x
tarde.Name = "tarde" & x
mañana.Height = 25
mañana.Width = 40
tarde.Height = 25
tarde.Width = 40
Me.Controls.Add(mañana)
Me.Controls.Add(tarde)
y = y + 25
x = x + 25
Next
aceptar.Location = New Point(500, 500)
aceptar.Text = "Aceptar"
Me.Controls.Add(aceptar)
End Sub
Pero el problema lo tengo cuando un usuario abre este Form y en los texbox empieza a meter datos y luego le da a aceptar para introducir esos datos en la BD,no se como hacer referencia a los texbox,t dejo el codigo que tengo en mi boton de Aceptar:
x = 0
Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count
For a = 1 To b
'crea una nueva fila nueva y le da el conportamiento de trabajos
Dim fila As DataRow = DataSet11.registro_tras.NewRow
'asignamos los distintos campos a añadir
' aqui esta el problema--->> fila.Item("temperatura") =???????
'añadimos la nueva fila al dataset
DataSet11.registro_tras.Rows.Add(fila)
'actualizamos el adaptador para que la base de datos recoga los cambios
'DataSet12.ppersonal_l.AcceptChanges()
Me.MySql_da_registro_temperatura.Update(DataSet11, "registro_tras")
x = x + 1
Next
End Sub
Es que no tengo ni idea de como hacerlo,aparte solo llevo 1 mes programando en .net y no se si esto estara bien.