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
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!!