Cargar datos de un text box a un List box
Nuevamente solicito de tu ayuda
Quiero agregar los datos de un text box a un List box y seguir en forma consecutiva hasta tener los datos que necesito pero cuando le doy click en agregar carga los datos de los text box pero quiero agregar más datos y no se desplaza a la ultima posición si no que solo remplaza el primero
Este el formulario cuando cargo el producto solo reemplaza al primero y no se posiciona en la ultima columna del List box para seguir cargando más productos
For i = 0 To ListBox1.ListCount a = ListBox1.ListCount ListBox1.AddItem ListBox1.List(a, 0) = ComboBox3 ListBox1.List(a, 1) = TextBox10 ListBox1.List(a, 2) = TextBox8 ListBox1.List(a, 3) = TextBox11 ListBox1.List(a, 4) = TextBox9 ListBox1.List(a, 5) = TextBox7 i = i + 1 Next
este es código que estoy utilizando para cargar el List box
Slds
Robert
1 Respuesta
Te anexo el código actualizado
Private Sub CommandButton1_Click() 'Por.Dante Amor ListBox1.AddItem ComboBox3 ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox10 ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox8 ListBox1.List(ListBox1.ListCount - 1, 3) = TextBox11 ListBox1.List(ListBox1.ListCount - 1, 4) = TextBox9 ListBox1.List(ListBox1.ListCount - 1, 5) = TextBox7 End Sub
Hola Dante
El código que me indicaste hace lo mismo que el anterior cuando quiero volver a cargar un nuevo producto solo lo reemplaza el primero que cargue y no continua una línea abajo para seguir cargando más productos
Slds
Robert
El código que te puse adiciona un nuevo registro en el listbox, pero ya no estoy entendiendo en dónde quieres adicionar registros.
Envíame tu archivo y me dices en cuál formulario estás trabajando y con cuál botón quieres que se agreguen registros al listbox.
