Visual Basic - Ayuda con este codigo! VB 6.0

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con este codigo! VB 6.0

Publicado por Rai (2 intervenciones) el 13/10/2007 03:41:00
Hola amigos!
Mi problema es muy básico para los niveles que veo en este foro, pero estoy desesperado buscando una solución y nada me funciona.
Mi codigo ingresa bien datos y los almacena en otra tabla, el problema es que necesito agregar un contador que cuente (valga la rebundancia) los 0 y 1 ingresados en los 10 combos.
Aquí está el código:

Private Sub Command1_Click()

Dim nuevo As ListItem
Dim IndiceIcono As Integer

Set nuevo = frmInicio.lstMate.ListItems.Add(, , Combo1, IndiceIcono, IndiceIcono)
nuevo.SubItems(2) = Combo2
nuevo.SubItems(3) = Combo3
nuevo.SubItems(4) = Combo4
nuevo.SubItems(5) = Combo6
nuevo.SubItems(6) = Combo7
nuevo.SubItems(7) = Combo8
nuevo.SubItems(8) = Combo9
nuevo.SubItems(9) = Combo10
Combo1.SetFocus

Combo1.AddItem Combo1
Combo2.AddItem Combo2
Combo3.AddItem Combo3
Combo4.AddItem Combo4
Combo5.AddItem Combo6
Combo6.AddItem Combo7
Combo7.AddItem Combo8
Combo8.AddItem Combo9
Combo9.AddItem Combo10
Combo1.Text = ""

Combo1.SetFocus
frmDatos.Hide
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = ""

Combo1.SetFocus
End Sub

Private Sub Command3_Click()
Command1.SetFocus
Combo1.SetFocus
frmDatos.Hide
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1
Combo2.AddItem (i)
Combo3.AddItem (i)
Combo4.AddItem (i)
Combo6.AddItem (i)
Combo7.AddItem (i)
Combo8.AddItem (i)
Combo9.AddItem (i)
Combo10.AddItem (i)
Next i
End Sub

Saludos afectuosos!
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:Ayuda con este codigo! VB 6.0

Publicado por Rai (2 intervenciones) el 14/10/2007 01:37:04
Por favor alguien que le eche una ojeada, aun no se me ocurre como y he probado varias formas como asignar un contador pero no me lo muestra el valor acumulado :(
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