Hola a todos, cuando agrego una linea al MshFlexGrid de la siguiente forma:

With AltaVentas.FlexGrid1
.AddItem ""
.Row = .Rows - 1
.TextMatrix(.Row, 0) = LTrim(TxtCantidad.Text)
.TextMatrix(.Row, 1) = TxtCodigo.Text
.TextMatrix(.Row, 2) = TxtDescri.Text
.TextMatrix(.Row, 3) = TxtPrecio.Text
.TextMatrix(.Row, 4) = Val(TxtPrecio.Text) * Val(TxtCantidad.Text)
.TextMatrix(.Row, 5) = TxtDescuento.Text

If Val(TxtDescuento.Text) <> 0 Then
.TextMatrix(.Row, 4) = Val(.TextMatrix(.Row, 4)) - (Val(.TextMatrix(.Row, 4)) * Val(.TextMatrix(.Row, 5)) / 100)
End If

.ColAlignment(3) = 6
.ColAlignment(4) = 6
.ColAlignment(5) = 6
End With

No me muestra el cursor. Cuando inicio el form hago lo siguiente para agregarle los titulos al control:

Set rs = cls.Consultar("select fCantidad as Cantidad, fCodigo as Código, fDescripcion as Descripción, fPrecio as Precio, fSubTotal as SubTotal, fDescuento as Descuento, Renglon as ' ' from Movimientos")

Set FlexGrid1.DataSource = rs ' Asigno a la grilla el recordset y vinculo la fuente de tatos

Pero no me muestra el cursor para poder elegir que lineas voy a modificar o borrar. Gracias de antemano. Saludos cordiales.

Fabian