SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: desarrollo en Jueves 30 de Diciembre de 2004, 16:31

Título: Llenar Datos En Mshflexgrid
Publicado por: desarrollo en Jueves 30 de Diciembre de 2004, 16:31
Hola a todos tengo un problemita  tengo un formulario que me permite escoger ciertas opciones luego al presionar un boton los datos de los combos deberan visualizace en  un MSHFlexGrid colocando un numero de item a cada opcion que yo eliga el problema es que me sale todo en una misma linea no avanza  esto es lo que puse en el programa "AYUDENME " por fa

Private Sub Command2_Click()

i = 1
 
MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
 MSHFlexGrid1.ColWidth(0) = 1000
 MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
 MSHFlexGrid1.ColWidth(1) = 4000

 MSHFlexGrid1.Col = 1
 MSHFlexGrid1.Row = i
 MSHFlexGrid1.Text = i

 MSHFlexGrid1.Col = 1
 MSHFlexGrid1.Row = i
 MSHFlexGrid1.Text = DataCombo3.Text

 i = i + 1
 
 MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
 
End Sub
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: Sagutxo en Jueves 30 de Diciembre de 2004, 17:06
Salu2.Creo que te falta avanzar la linea.

Eres tu el que le dice siempre la misma linea:
i = 1

Prueba a poner estas lineas al principio de la funcion y siempre avanzará de linea.
pero primero retira la que tienes encima del End Sub

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1

avanzas el valor de i despues de meter el dato,


Espero que solo sea eso :).Agur.
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: DiabloRojo en Jueves 30 de Diciembre de 2004, 17:14
Hola desarrollo.
Todo te sale en la misma línea debido a que cada vez que entras al evento click de tu commandbutton inicializas i=1. De momento lo único que se me ocurre es que declares i como Static ya sea a nivel de formulario o en un módulo .BAS (de acuerdo a lo que necesites) y que la primera línea dentro de tu evento click sea i=i+1.


DiabloRojo.
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: Sagutxo en Jueves 30 de Diciembre de 2004, 17:21
Salu2, me he explicado fatal, te dejo el código puesto y así acabo antes.


Código: Text
  1. Private Sub Command2_Click()
  2.  
  3. MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
  4. MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
  5.  
  6.  
  7. MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
  8. MSHFlexGrid1.ColWidth(0) = 1000
  9. MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
  10. MSHFlexGrid1.ColWidth(1) = 4000
  11.  
  12. MSHFlexGrid1.Col = 1
  13. 'MSHFlexGrid1.Row = i LINEA QUITADA
  14. MSHFlexGrid1.Text = i 'ESTO NO SE, SUPONGO QUE SOLO MIRABAS EL NÚMEO DE LINEA
  15.  
  16. 'MSHFlexGrid1.Col = 1 ESTO SOBRA, col YA ES = A 1
  17. 'MSHFlexGrid1.Row = i LINEA QUITADA
  18. MSHFlexGrid1.Text = DataCombo3.Text
  19.  
  20. 'i = i + 1 LINEA QUITADA
  21.  
  22. End Sub
  23.  

Agur. :comp:
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: desarrollo en Jueves 30 de Diciembre de 2004, 17:50
Muchas gracias ahora  :P  si avanza pero me deja una linea en blanco entre la cabecera y el primer registro ademas ya no me visualiza el item  :(

Desarrollo  :comp:
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: Sagutxo en Jueves 30 de Diciembre de 2004, 18:10
Salu2. Inicia MSHFlexGrid1.Rows a 1 antes de entrar en esta funcion Private Sub Command2_Click(). Solo 1 vez , hasta que limpies el msflexgrid.

Espero que lo entiendas, estoy espesísimo hoy. no consigo juntar 2 palabras.
Título: Re: Llenar Datos En Mshflexgrid
Publicado por: desarrollo en Jueves 30 de Diciembre de 2004, 18:16
Mil gracias voy a intentarlo

Desarrollo  :comp: