Programación General > Visual Basic 6.0 e inferiores

 Llenar Datos En Mshflexgrid

(1/2) > >>

desarrollo:
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

Sagutxo:
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.

DiabloRojo:
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.

Sagutxo:
Salu2, me he explicado fatal, te dejo el código puesto y así acabo antes.



--- Código: Text ---Private Sub Command2_Click() MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1  MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"MSHFlexGrid1.ColWidth(0) = 1000MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"MSHFlexGrid1.ColWidth(1) = 4000 MSHFlexGrid1.Col = 1'MSHFlexGrid1.Row = i LINEA QUITADAMSHFlexGrid1.Text = i 'ESTO NO SE, SUPONGO QUE SOLO MIRABAS EL NÚMEO DE LINEA 'MSHFlexGrid1.Col = 1 ESTO SOBRA, col YA ES = A 1'MSHFlexGrid1.Row = i LINEA QUITADAMSHFlexGrid1.Text = DataCombo3.Text 'i = i + 1 LINEA QUITADA End Sub  
Agur. :comp:

desarrollo:
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:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente