Control MSFlixgtrid
Hola, tengo un control MsFlexgrid, al cual quiero añadirle datos, he logrado introducir los datos en la primera fila, pero cuando intento que se vayan añadiendo nuevos datos es decir que los nuevos datos sean en la fila siguiente no lo consigo, se queda siempre en la misma fila y me sobrescribe los datos.
El código que tengo es este:
Public columna As Integer
Public fila As Integer
-----------
Dim ventana2 As String
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" _
Or Text4.Text = "" Then
ventana2 = MsgBox("Debes rellenar todos los campos", vbInformation, "Rellenar")
Else
columna = 0
fila = 0
columna = columna + 1
fila = fila + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text1.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text2.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text3.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text4.Text
End If
Necesito ayuda ya!
Gracias
El código que tengo es este:
Public columna As Integer
Public fila As Integer
-----------
Dim ventana2 As String
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" _
Or Text4.Text = "" Then
ventana2 = MsgBox("Debes rellenar todos los campos", vbInformation, "Rellenar")
Else
columna = 0
fila = 0
columna = columna + 1
fila = fila + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text1.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text2.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text3.Text
columna = columna + 1
rejilla.Row = fila
rejilla.Col = columna
rejilla.Text = Text4.Text
End If
Necesito ayuda ya!
Gracias
4 Respuestas
Respuesta de andresmaga
1
Respuesta de kieleze
1
Respuesta de leosoft
1
Respuesta de horacio_tg
1