Gente tengo creada una conexion con el dataenvironment, en los cuales agrego comandos con la sentencia SQL y luego la ejecuto desde visual asi:
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:
Donde estoy fallando?
Gracias!!
Código [Seleccionar]
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]
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!!