Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: elezekiel en 30 Agosto 2014, 22:29 pm


Título: Problema flex grid
Publicado por: elezekiel en 30 Agosto 2014, 22:29 pm
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:
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
  1. With Dev
  2.      .cmdCliente
  3.       For i = 1 To .rscmdCliente.RecordCount
  4.           While Not .rscmdCliente.EOF
  5.                 ReDim Preserve LidSocio(.rscmdCliente.RecordCount)
  6.                 FlexClientes.Rows = FlexClientes.Rows + 1
  7.                 FlexClientes.TextMatrix(i, 0) = .rscmdCliente.Fields("IdSocio") 
  8.                 LidSocio(i) = .rscmdCliente.Fields("IdSocio") 'establece el id del socio para editar
  9.                 FlexClientes.TextMatrix(i, 1) = .rscmdCliente.Fields("categoria")
  10.                 FlexClientes.TextMatrix(i, 2) = .rscmdCliente.Fields("nombre")
  11.                 FlexClientes.TextMatrix(i, 3) = .rscmdCliente.Fields("apellido")
  12.                 FlexClientes.TextMatrix(i, 4) = .rscmdCliente.Fields("celular")
  13.                 FlexClientes.TextMatrix(i, 5) = .rscmdCliente.Fields("titulo")
  14.                 FlexClientes.TextMatrix(i, 6) = .rscmdCliente.Fields("trabajo")
  15.                 FlexClientes.TextMatrix(i, 7) = .rscmdCliente.Fields("cumpleaños")
  16.                 FlexClientes.TextMatrix(i, 8) = .rscmdCliente.Fields("nacionalidad")
  17.                 FlexClientes.TextMatrix(i, 9) = .rscmdCliente.Fields("extras")
  18.                 i = i + 1
  19.                 .rscmdCliente.MoveNext
  20.           Wend
  21.       Next i
  22.       .rscmdCliente.Close
  23.       Set .rscmdCliente.Source = Nothing
  24.       Cargados = 1
  25. End With

Donde estoy fallando?

Gracias!!

Título: Re: Problema flex grid
Publicado por: elezekiel en 30 Agosto 2014, 23:01 pm
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
  1. 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!!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines