Problema flex grid

[elezekiel]

Gente tengo creada una conexion con el dataenvironment, en los cuales agrego comandos con la sentencia SQL y luego la ejecuto desde visual asi:

Código [Seleccionar] Expandir


NombreDE.NombreComando [Parametros]

El tema es que yo estoy testeando para mostrar registros, y me cargan bien pero ingresa una línea de mas totalmente en blanco, este es el code que uso para cargar los datos al flexgrid:

Código (vb) [Seleccionar] Expandir


With Dev
    .cmdCliente
     For i = 1 To .rscmdCliente.RecordCount
         While Not .rscmdCliente.EOF
               ReDim Preserve LidSocio(.rscmdCliente.RecordCount)
               FlexClientes.Rows = FlexClientes.Rows + 1
               FlexClientes.TextMatrix(i, 0) = .rscmdCliente.Fields("IdSocio")
               LidSocio(i) = .rscmdCliente.Fields("IdSocio") 'establece el id del socio para editar
               FlexClientes.TextMatrix(i, 1) = .rscmdCliente.Fields("categoria")
               FlexClientes.TextMatrix(i, 2) = .rscmdCliente.Fields("nombre")
               FlexClientes.TextMatrix(i, 3) = .rscmdCliente.Fields("apellido")
               FlexClientes.TextMatrix(i, 4) = .rscmdCliente.Fields("celular")
               FlexClientes.TextMatrix(i, 5) = .rscmdCliente.Fields("titulo")
               FlexClientes.TextMatrix(i, 6) = .rscmdCliente.Fields("trabajo")
               FlexClientes.TextMatrix(i, 7) = .rscmdCliente.Fields("cumpleaños")
               FlexClientes.TextMatrix(i, 8) = .rscmdCliente.Fields("nacionalidad")
               FlexClientes.TextMatrix(i, 9) = .rscmdCliente.Fields("extras")
               i = i + 1
               .rscmdCliente.MoveNext
         Wend
     Next i
     .rscmdCliente.Close
     Set .rscmdCliente.Source = Nothing
     Cargados = 1
End With

Donde estoy fallando?

Gracias!!

[elezekiel]

Si edito el mensaje me lo distorsiona me pone numeros y cosas raras no se por que xD

Solucionado: agregue esta línea antes de comenzar el procedimiento donde dice "With Dev":

Código (vb) [Seleccionar] Expandir

FlexClientes.Rows = 1


En modo diseño no me lo permitia porque tengo la primer linea como "Fixed Row"  al agregar esa linea no me agrega una en blanco.
Si alguno le encuentra algo logico a eso le agradezco, lo encontre de asco "al tanteo"

Salud!!