HOLA, TENGO UN PROBLEMON, TENGO UNA MATRIZ LA CUAL TIENE 8 CAMPOS Y NECESITO REALIZAR UNA BUSQUEDA PERO CON LISTBOX ES DECIR CARGAR LOS DATOS DE LA MATRIZ SIN REPETIRLOS EN DISTINTOS LISTBOX, ASI CUANDO QUIERA REALIZAR UNA BUSQUEDA, ME DE LA OPCION DE ELEJIR QUE CAMPOS BUSCAR EN EL LISTBOX, Y REALIZAR LA BUSQUEDA. EN ESTOS MOMENTOS LO ESTOY HACIENDO CON SOLO CICLOS FOR COMO MUESTRO A CONTINUACION. PERO SE DEMORA DEMASIADO, NO EXISTIRA OTRA FORMA?
MUY ATTE. SE AGREDECE MUCHO SI ME RESPONDIESEN ES MUY IMPORTANTE PARA MI ESTE PROYECTO...
For h As Integer = 0 To mat_nueva_2.GetUpperBound(0)
For t As Integer = 0 To Principal.ListBox1.Items.Count - 1
If Principal.ListBox1.GetSelected(t) Then
For y As Integer = 0 To Principal.ListBox2.Items.Count - 1
If Principal.ListBox2.GetSelected(y) Then
For p As Integer = 0 To Principal.ListBox3.Items.Count - 1
If Principal.ListBox3.GetSelected(p) Then
For s As Integer = 0 To Principal.ListBox4.Items.Count - 1
If Principal.ListBox4.GetSelected(s) Then
For w As Integer = 0 To proyect_mat.GetUpperBound(0)
If proyect_mat(w, 9) = Principal.ListBox4.Items(s).ToString And proyect_mat(w, 8) = Principal.ListBox3.Items(p).ToString And proyect_mat(w, 7) = Principal.ListBox2.Items(y).ToString And proyect_mat(w, 28) = Principal.ListBox1.Items(t).ToString Then
If proyect_mat(w, 14) = mat_nueva_2(h, 4) Then
If proyect_mat(w, 14) <> "" Then
fecha8 = proyect_mat(w, 24).Substring(6, 4) & proyect_mat(w, 24).Substring(3, 2)
fecha_indice = Convert.ToUInt32(fecha8)
Dim fecha_indice2 As Integer
fecha = Date.Today.ToString.Substring(6, 4) & Date.Today.ToString.Substring(3, 2)
fecha_indice2 = Convert.ToInt32(fecha)
If fecha_indice = fecha_indice2 And proyect_mat(w, 25) = "" Then
mat_nueva_2(h, 7) = (Val(mat_nueva_2(h, 7)) + Val(proyect_mat(w, 17))).ToString 'por producir
End If
If fecha_indice = fecha_indice2 And proyect_mat(w, 22) = "PROGRAMADO" And proyect_mat(w, 25) <> "" Then
mat_nueva_2(h, 8) = (Val(mat_nueva_2(h, 8)) + Val(proyect_mat(w, 17))).ToString
End If
End If
End If
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
