Visual Basic - busqueda

Life is soft - evento anual de software empresarial
   
Vista:

busqueda

Publicado por alex (19 intervenciones) el 30/09/2009 18:40:36
amogos necesito ayuda les cuento lo que necesito que em ayuden toy haciendo un modulo buscar si yo busco x unidad, al encotrarlo me aparesca en un mshflexgrid los pedidos que hiso esta unidad, por ejemplo si la unidad informatica pidio 3 veces lapices me apresca en mshflexgrid

si me pueden ayuda se los agradeceria
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:busqueda

Publicado por juan carlos (518 intervenciones) el 01/10/2009 02:57:39
hola Alex, esto lo hice para buscar en un list1 pero la idea es que veas su funcionamiento necesitas 4 botones y dos listbox, y un text1
si deseas el codigo con los botones,listbox, etc... mi mail es
mega.juca@hotmail.es
desde luego que la salida la puedes sacar en un mshflexgrid

rem boton(command1)
Private Sub Command1_Click()
Const a = "01/01/2000"
If text1.Text = "" Then MsgBox "Escribe el nombre por favor", 32, "Mensaje": text1.SetFocus: Exit Sub
For i = 0 To List1.ListCount - 1
If (InStr(List1.List(i), text1) <> 0) Or (InStr(List1.List(i), a) <> 0) Then List1.RemoveItem (i)
Refresh
Next
End Sub

rem boton (command2)
Rem recargar los registros
Private Sub Command2_Click()
List1.Clear
List1.AddItem "karen 21/1/2009"
List1.AddItem "caro 15/2/2009"
List1.AddItem "karen 1/1/2000"
List1.AddItem "ruben 5/3/2009"
List1.AddItem "karen 10/2/2009"
List1.AddItem "caro 15/11/2009"
List1.AddItem "ruben 1/1/2000"
List1.AddItem "martha 23/5/2009"
End Sub

rem boton command3
Rem buscar los repetidos y los que tengan la fecha
Private Sub Command3_Click()
List2.Clear
Const a = "01/01/2000"
For i = 0 To List1.ListCount - 1
If (InStr(List1.List(i), text1) <> 0) Then
List2.AddItem List1.List(i)
Refresh
End If
Next
End Sub

boton (boton command4)
Private Sub Command4_Click()
List2.Clear
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar