duda con DATAGRID Y MSFLEXGRID en que Difieren ??

[forrestgump]

DAVID de nuevo yo...la verdad que yanose ni como evitar preguntarte amigo y hasta me da pena pero podrias decirme en que podria ser mi error..

Mira que llene una GRIlla como muchos dicen por ahi.. el caso que cuando me llega la Lectura de el puerto serial los llevo a la grilla pero primero los tome utilizando algo llamado MID para extaerlos... pero cuando los cargo y vuelvo a enviarle datos quisiera que los nuevos datos se aparezcan en la siguientes filas y no sucede nada puse un boton para REFRESCAR pero alguna instruccion debe llevar no vaa aser por Milagros de los Cielos jajaja

esto es lo que hay en form COMUNICA


Private Sub Boton_Abrir_Click()

MSComm1.CommPort = nro_puerto
MSComm1.Settings = Str$(velocidad) + ",N,8,1"
MSComm1.PortOpen = True '

End Sub

Private Sub Combo_Puerto_Click()

Dim viejo_puerto As Integer
viejo_puerto = nro_puerto
nro_puerto = Combo_Puerto.ListIndex
nro_puerto = Combo_Puerto.ItemData(nro_puerto)




End Sub

Private Sub Combo_Velocidad_Click()
Dim vieja_velocidad As Integer
vieja_velocidad = velocidad
velocidad = Combo_Velocidad.ListIndex
velocidad = Combo_Velocidad.ItemData(velocidad)

End Sub


Private Sub Form_Load()

mensajes_cambios = False
velocidad = 1200
nro_puerto = 9600
Combo_Puerto.ListIndex = 0
Combo_Velocidad.ListIndex = 0
Check_Salto_Carro.Value = 1
incluye_salto_carro = True
mensajes_cambios = True
MSComm1.InputLen = 0 ' El valor 0 hace que se lea todo
MSComm1.RThreshold = 1 ' al recibir uno o mas caracteres
MSComm1.SThreshold = 1 ' al enviar uno o mas caracteres


End Sub


Private Sub Frame4_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub MSComm1_OnComm()

nvio = False

If MSComm1.CommEvent = comEvReceive Then
Texto_Recibido.Text = Texto_Recibido.Text + MSComm1.Input

num1 = Mid(Texto_Recibido.Text, 149, 8)
num2 = Mid(Texto_Recibido.Text, 174, 8)
num3 = Mid(Texto_Recibido.Text, 197, 8)
num4 = Mid(Texto_Recibido.Text, 219, 8)
num5 = Mid(Texto_Recibido.Text, 237, 8)
num6 = Mid(Texto_Recibido.Text, 267, 8)
Nombre = Mid(Texto_Recibido.Text, 118, 10)

Label1 = num1
Label2 = num2
Label3 = num3
Label4 = num4
Label5 = num5
Label6 = num6
Label13 = Nombre

Label7 = Val(Label1)
Label8 = Val(Label2)
Label9 = Val(Label3)
Label10 = Val(Label4)
Label11 = Val(Label5)
Label12 = Val(Label6)
End If
End Sub


esto es lo que hay en form MSFLEXGRID


Private Sub cmdrefresh_Click()
comunica.Hide

cmdrefresh.Caption = " Refresh "
End Sub

Private Sub Form_Load()
comunica.Hide

End Sub

Private Sub grdmenu_Click()


grdmenu.Cols = 7
grdmenu.Rows = 14

grdmenu.FixedCols = 0
grdmenu.FixedRows = 1
grdmenu.TextArray(0) = "Unidad"
grdmenu.TextArray(1) = "Subidas A"
grdmenu.TextArray(2) = "Bajadas A"
grdmenu.TextArray(3) = "Subidas N"
grdmenu.TextArray(4) = "Bajadas N"
grdmenu.TextArray(5) = "Bloqueos"
grdmenu.TextArray(6) = "Desconec"

grdmenu.Row = 1
grdmenu.Col = 0
grdmenu.Text = comunica.Label13

grdmenu.Row = 1
grdmenu.Col = 1
grdmenu.Text = comunica.Label1
grdmenu.Row = 1
grdmenu.Col = 2
grdmenu.Text = comunica.Label2

grdmenu.Row = 1
grdmenu.Col = 3
grdmenu.Text = comunica.Label3
grdmenu.Row = 1
grdmenu.Col = 4
grdmenu.Text = comunica.Label4

grdmenu.Row = 1
grdmenu.Col = 5
grdmenu.Text = comunica.Label5
grdmenu.Row = 1
grdmenu.Col = 6
grdmenu.Text = comunica.Label6

End Sub



cualquier comentario te lo agradezco...soy muy latoso verdad...lo lamento