Programación General > Visual Basic 6.0 e inferiores

 Otra Vez El Mshflexgrid

(1/2) > >>

desarrollo:
Sigo con los problemas ya no se k hacer


Private Sub Command2_Click()
Item = Item + 1

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

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

MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 1
MSHFlexGrid1.Text = Str(Item)

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

al hacer esto me sale de la siguiente manera en el grid


ITEM     CODIGO DE CONTROL DE CALIDAD
  1        OPERATIVO

' EL PRIMERO ME SALE OK PERO CUANDO AGREGO EL OTRO CHANCA AL PRIMERO

OTRA INQUIETUD PARA BORRAR  UTILIZO ESTO
If MSHFlexGrid1.Rows > 1 Then
With MSHFlexGrid1
If .Row < .Rows - 1 Then
    For f = Row + 1 To Rows - 1
    For c = 0 To 3
    .TextMatrix(f - 1, c) = .TextMatrix(f, c)
    Next c
    Next f
    End If
    .Rows = Rows - 1
    End With
    i = i - 1
    End If

Pero no pasa nada AUXILIOOOOOOO por favor

Sagutxo:
Salu2.
Vuelves a asignar un valor a MSHFlexGrid1.Row


--- Código: Text ---MSHFlexGrid1.Row = 1MSHFlexGrid1.Text = Str(Item) MSHFlexGrid1.Col = 1MSHFlexGrid1.Row = i 
No tienes que hacerlo, lo tienes hecho arriba


--- Código: Text ---MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1 -----------------------------------------------------------

Para borrar toda la tabla MSHFlexGrid1.Clear
Agur. :comp:

desarrollo:
Bueno ya sale y ya borra pero aun tengo inconvenientes

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

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

MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = item
MSHFlexGrid1.Text = Str(item)

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

End Sub
**El inconveniente del agregar es que me agrega al final una linea en blanco lo demas todo ok

Private Sub Command3_Click()
If MSHFlexGrid1.Row = 0 Then
Command3.Enabled = False
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.FixedRows = 1

ElseIf MSHFlexGrid1.Rows >= 1 Then
With MSHFlexGrid1
If .Row < .Rows - 1 Then
    For f = Row + 1 To Rows - 1
    For c = 0 To 2
    .TextMatrix(f - 1, c) = .TextMatrix(f, c)
    Next c
    Next f
    End If
    .Rows = .Rows - 1
    End With
    item = item - 1
End If
End Sub

**** El inconveniente del eliminar es k cuando solo queda un registro para elimar todavia sigue el boton activado lo intente deshabilitar pero aun tengo problemas


Si tienen aluna sugerencia para k funcione bien se los agredecere mucho


Desarrollo  :comp:

Sagutxo:
Salu2.
1º.- has de quitar lineas que te sobran :

--- Código: Text ---MSHFlexGrid1.Col = 0'MSHFlexGrid1.Row = item esta linea sobra ya la tienes asignada arriba.MSHFlexGrid1.Text = Str(item) MSHFlexGrid1.Col = 1'MSHFlexGrid1.Row = item ESTA TAMBIEN SOBRAMSHFlexGrid1.Text = DataCombo3.Text 2º.- para borrar solo pon MSHFlexGrid1.Cleary te borra todo el MsFlesxGrid de una vez.

Espero que te sirva.
agur.

Sagutxo:
Te voy a dejar un form, en el que uso un msflexgrid. uso un campo textBox para simular la edicion del msflexgrid, pero se podria usar un comboBox =mente o similar., te va a costar entenderlo, pero si lo miras bien lo acabarás comprendiendo. :). Suerte.

Agur.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente