SoloCodigo

Salu2.
si que al pinchar en vez de ver desplegado 10 lineas vea las que yo quiera. si esto no me entiendes te lo mando gráficamente    

Gracias.

Salu2,
   Es posible cambiar el nº de lineas que se visualizan en un 'combobox'. Si es así agradecería que me ayudaran a hacerlo, gracias.

Sagutxo.  

SAlu2. mirate este archivo de la carpeta de windows help, creo que está muy bien explicado. si no lo tienes ponme una dir de e-mail y te los mando.

MSHFLX98.CHM.

Espero que te sirva.

Salu2. Ante todo gracias por tu contestación, pero ahora me asalta otra duda.

   Si se cambia un registro se modifica en la Tabla de la DB? porque por la forma parece que no.

Gracias.    

Salu2.
   Por alguna razón en el VB5 no funcionava del todo correcto .row o .col ya que cuando el usuario pinchaba en la linea o columna 0, lo reconocia como 1, Lo solucione usando las Var .mousecol y .mouserow del msflexgrid.
   Espero que te ayude, aunke supongo que en la ver VB6 no tendrá ya este problemilla.

Agur

Salu2. En la pag puesta en el mensage de arriba  www.Keygen.us, me ha saltado un troyano, si no teneis firewall, me lo pensaria 2 veces.
Agur.
 

Salu2. Un comentario, en este caso supongo que ya no te compensa cambiar nada, pero lo recomendable para guardar fechas bajo mi punto de vista es un string guardado como AAAAMMDD, esto te ayudará mucho para posteriores consultas y rapidez.

Es solo una opinion .
 

Salu2. Tampoco es que te hayas explicado mucho. Pruba a poner NombreDeEvento. y te saldran las opciones configurables.
Agur.

Salu2. akí te dejo tu codigo como pienso que debería estar.

Private Sub Command2_Click()
Command3.Enabled = True
item = item + 1
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1

' ESTAS LINEAS SOLO LAS PONDRIA CADA VEZ QUE REINICIE EL MSFLEXGRID
MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
MSHFlexGrid1.ColWidth(0) = 1000
MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
MSHFlexGrid1.ColWidth(1) = 4000
'------------------------------------------------------
' la linea de abajo la configuraría en las propiedades del msflexgrid pero eso a tu gusto
MSHFlexGrid1.FixedRows = 1
'-------------------------------------------------------

'MSHFlexGrid1.Col = 0 ESTO SOBRA
'MSHFlexGrid1.Row = item ESTO SOBRA
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0) = Str(item)

'MSHFlexGrid1.Col = 1 ESTO SOBRA
'MSHFlexGrid1.Row = item ESTO SOBRA
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,1) = DataCombo3.Text

End Sub

Espero haberme explicado, ayer estaba cansado y me costaba pensar .

Salu2.
1º.- has de quitar lineas que te sobran :
2º.- para borrar solo pon MSHFlexGrid1.Cleary te borra todo el MsFlesxGrid de una vez.

Espero que te sirva.
agur.

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.

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.

Es posible que tengas demasiados if prueba a ponerlos con un
SELECT case Text13(0).Text

case patatin

case patatan

   Comento, tengo la sensacion de que hay excesivo codigo ademas veo que en el campo de comprobacion if solo cambia el último número lo que supuestamente hace mas facil la reducción del codigo. Me encantaría orientarte, pero hasta ahora no me ha hecho falta utilizar el evento .fields en mis aplicaciones, y no tengo ni idea de que es lo que hace. si puedo luego telo miro.

Suerte.Agur.