ListBox
Hola Amigo que tal disculpa la molestia espero que me puedas ayudar.
Como hago para buscar si un texto ya esta ingresado en un listbox, es decir tengo ingresado Juana, María y Sara en un ListBox y quiero seguir ingresando más datos al list pero no quiero que se repitan, entonces antes de ingresar el dato que me busque si el texto ya esta ingresado o no en el list, y la ultima luego que ingreso los datos necesarios como hago para pasar estos datos a una tabla... Mucha gracias...
Como hago para buscar si un texto ya esta ingresado en un listbox, es decir tengo ingresado Juana, María y Sara en un ListBox y quiero seguir ingresando más datos al list pero no quiero que se repitan, entonces antes de ingresar el dato que me busque si el texto ya esta ingresado o no en el list, y la ultima luego que ingreso los datos necesarios como hago para pasar estos datos a una tabla... Mucha gracias...
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Una recomendación: Primero pasa los datos a una tabla y después agregalo al ListBox
Para verificar intenta algo similar a:
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
If .lstListBox.ListItem(nCnt) == .txtNombre.Value
Message("Dato repetido")
Else
.lstListBox.AddItem(.txtNombre.Value)
EndIf
Next
EndWith
Para añadirlo a una tabla:
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
Append Blank
Replace campo With .lstListBox.ListItem(nCnt)
Next
EndWith
Para verificar intenta algo similar a:
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
If .lstListBox.ListItem(nCnt) == .txtNombre.Value
Message("Dato repetido")
Else
.lstListBox.AddItem(.txtNombre.Value)
EndIf
Next
EndWith
Para añadirlo a una tabla:
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
Append Blank
Replace campo With .lstListBox.ListItem(nCnt)
Next
EndWith
Hola veras así lo estoy aplicando pero no me funciona, olvide decirte que el list esta vacío cuando se ejecuta el formulario, entonces ThisForm.List1.ListCount es 0 " cero" sera por eso que no entra en el For ..
With ThisForm
For nCnt = 1 To ThisForm.List1.ListCount
If ThisForm.List1.ListItem(nCnt) == (ALLTRIM(ThisForm.Text3.Value))
Message("Dato repetido")
Else
ThisForm.List1.AddItem (Alltrim(ThisForm.Text3.Value))
EndIf
Next
EndWith
With ThisForm
For nCnt = 1 To ThisForm.List1.ListCount
If ThisForm.List1.ListItem(nCnt) == (ALLTRIM(ThisForm.Text3.Value))
Message("Dato repetido")
Else
ThisForm.List1.AddItem (Alltrim(ThisForm.Text3.Value))
EndIf
Next
EndWith
Modifica el código a:
m.lRepite = .F.
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
If .lstListBox.ListItem(nCnt) == .txtNombre.Value
m.lRepite = .T.
Exit For
EndIf
Next
if m.lRepite
Message("Dato repetido")
Else
.LstListBox.AddItem(.txtNombre.Value)
EndIf
EndWith
m.lRepite = .F.
With ThisForm
For nCnt = 1 To .lstListBox.ListCount
If .lstListBox.ListItem(nCnt) == .txtNombre.Value
m.lRepite = .T.
Exit For
EndIf
Next
if m.lRepite
Message("Dato repetido")
Else
.LstListBox.AddItem(.txtNombre.Value)
EndIf
EndWith
Disculpame que no te califique a tiempo, estaba probando una opción adicional, veras te comento esto es referente a ingresar unos números de serie de unos productos al listbox, en la compra de un producto, también válido la parte esta, si compro 6 productos solo me permita ingresar seis números de serie nada más, ¿cómo te agradezco? Bueno mil gracias nuevamente, ya te he de molestar en algún momento...
