Ver Mensaje Individual
  #26 (permalink)  
Antiguo 29/04/2010, 07:27
Avatar de XYON126
XYON126
 
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 16 años, 2 meses
Puntos: 0
Respuesta: Ayuda por favor

Hola compañero!

Ya lo he probado y veo que eso es mas practico que un formulario aparte pues es casi lo mismo a que se desplegue o alarge como en tu caso, pero este ultimo te ahorras problemas posteriores de Show y otras mandangas.

Sobre el tema de datos de matrices tengo ahora una consulta pues todo lo que me estas enseñando lo voy digiriendo poco a poco pero estoy ahora en una fase como cuando una serpiente Piton se come una vaca que necesita 2 meses para digerirla y y otro para poderse mover, el caso es que lo voy aplicando poco a poco todo, mas mis ideas y me salen estas tonterias, resulta que manteniendo mi codigo antiguo pero teniendo tu puntos verifico la entrada de datos a la matriz y no me guarda absolutamente nada pero en cambio en otros elementos si, ¿Porque? me esta volviendo loco, puedes mirartelo porfa.
Código vb:
Ver original
  1. ' --------------------------------------------------------------------------
  2. ' \\ -- Subrutina para verificar que cantidad de semanas hay en Horas.dat.
  3. ' --------------------------------------------------------------------------
  4.  
  5. Public Sub ContadorSemanas()
  6.  
  7. Dim Control As Integer
  8. Dim NRegistro As Integer
  9. Dim i As Integer
  10.  
  11. D = LOF(Numero) / 94
  12. RegUltimo = LOF(Numero) / 94
  13. Control = 0
  14.  
  15. ReDim CSemanas(1, 1)
  16.  
  17. For i = 1 To D
  18.  
  19.     Get #Numero, RegUltimo, Horas
  20.     NRegistro = RegUltimo
  21.     RegUltimo = RegUltimo - 1
  22.    
  23.      If Horas.npedido = npedido_C Then
  24.             If Control <> Horas.semana Then
  25.                 ReDim Preserve CSemanas(1, UBound(CSemanas, 1) + 1)
  26.                 CSemanas(0, UBound(CSemanas, 1) + 1) = NRegistro
  27.                 CSemanas(1, UBound(CSemanas, 1) + 1) = Horas.semana
  28.                 Control = Horas.semana
  29.                 cbo_semanas.AddItem Horas.semana
  30.             End If
  31.      End If
  32.  
  33. Next i
  34.  
  35. NrSemanas = UBound(CSemanas, 2) + 1
  36.  
  37. MsgBox CSemanas(0, 0) & " ; " & CSemanas(0, 1) & vbCrLf & _
  38.        CSemanas(1, 0) & " ; " & CSemanas(1, 1) & vbCrLf
  39.  
  40. End Sub

La matriz la he declarado como publica en un modulo.bas para poder acceder a sus datos desde otras partes y funciones del programa, esta asi declarada.:

Código vb:
Ver original
  1. ' ---------------------------------------------------------------------------
  2. ' \\ -- Descripción : Matrices para control semanas, pedidos, etc.
  3. ' ---------------------------------------------------------------------------
  4.  
  5. 'Matriz de control de semanas
  6. Public CSemanas() As Integer

sin mas, pues mas adelante quiero declarar en el mismo modulo otras de indices,etc..

Un saludo

Última edición por XYON126; 29/04/2010 a las 11:03