hola, hola, holaaaaa, como va la vida, espero que bien, yo por aquí como siempre tocando las pelotillas con preguntitas....jejejeje....necesito que veais que hay mal en esta parte para que no se me borren todos los botones que hay en pantalla y se borren un por uno y no todos de golpe...es decir en pantalla salen tres botones y al pulsar uno en otra parte del programa estos tres botones tienen que borrarse para cargarse otros, el caso es que en vez de los tres botones se me borra solo uno y se ponen solo dos de los nuevos que deberían salir otros tres...si sigo pulsando el botón que carga los botones nuevos...los va eliminando a uno por cada pulsación y colocando a su vez en su sitio...los correctos...os mando el código gracias de antemano como siempre:::::
Código vb:
Ver originalIf accion = 1 Then
' Recorremos la colección de controles del formulario
For Each ctrl As Control In Me.Controls
' Si el tipo de control es un Button
If TypeOf ctrl Is Button Then
' Si se llama "x"
If ctrl.Name = "x" Then
' Lo eliminamos de la colección
Me.Controls.Remove(ctrl)
'Limpio la tabla productos para que no se incremente
End If
'todo esto es una prueba...................................................
'la prueba llega hasta aquí..................................................
End If
Next
'Limpio la tabla productos para que no se incremente
undataset.Tables("productos").Clear()
End If
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("Producto")
cmd.Connection = conexion
cmd.CommandText = "select Producto from Productos where NFamilia = " & fam & " ORDER BY Orden ASC"
adapta.SelectCommand = cmd
adapta.Fill(undataset, "Productos")
For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
If contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End If
Dim nuevobotonProd As New Button
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Name = "x"
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
Me.Controls.Add(nuevobotonProd)
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x + altoBoton
Next
End Sub
