Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Controles/Librerías/Componentes

Recorrer Un Columnview Y Guardar Datos En Strign[] Como?

Responder al tema

 

v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Martes, 20 Octobre 2015, 16:01
Objetivo: Recorrer Un Columnview Y Guardar Datos En Strign[] Como?
buenas,

en el programa de contactos que es una simple agenda telefónica con dos campos principales
nombre y teléfono

de los cuales quiero hacer un reporte de la lista actual o del contenido que tiene el columnview actualmente
pero me encuentro que no se como recorrer un columnaview con un for

alguna ayuda?

Perfil MP   Sitio web
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Martes, 20 Octobre 2015, 17:32
Objetivo: Re: Recorrer Un Columnview Y Guardar Datos En Strign[] Como?
No uso ese control. Pero tienes los métodos movefirst, moveto, etc. etc.

De todas formas si tienes que recorrer algo... recorre el Result de donde salió el columnview... ¿no?

Perfil MP  
v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Martes, 20 Octobre 2015, 18:57
Objetivo: Re: Recorrer Un Columnview Y Guardar Datos En Strign[] Como?
shordi escribió: [Ver mensaje]
No uso ese control. Pero tienes los métodos movefirst, moveto, etc. etc.

De todas formas si tienes que recorrer algo... recorre el Result de donde salió el columnview... ¿no?


si eso lo he pensado y lo haré si no encuentro una forma de recorrer el columnview

si veo los métodos pero aun así no encuentro la forma de recorrer los items

Perfil MP   Sitio web
jsbsan
Citar
Mensajes: 4175 Ubicación: dos hermanas, sevilla
Martes, 20 Octobre 2015, 19:12
Objetivo: Re: Recorrer Un Columnview Y Guardar Datos En Strign[] Como?
v3ctor

Te dejo un ejemplo que hice donde se ve el uso de .movenext (mover a siguiente registro dentro del resultado obtenido)
http://jsbsan.blogspot.com.es/2015/...completado.html

Saludos

Perfil MP   Sitio web MSN
v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Martes, 20 Octobre 2015, 20:06
Objetivo: Re: Recorrer Un Columnview Y Guardar Datos En Strign[] Como?
clase report:

' gambas class file

Private NumLista As Integer
Private EsteResultado As Result

Public Sub _new(resultado As Result)
EsteResultado = resultado
End

Public Sub Report_Open()
Dim InfoContacto As ReportTextLabel
Dim Contacto As ReportHBox
Dim TipoColor As Boolean
Dim contador As Integer = 1

Do While EsteResultado.Available

Contacto = New ReportHBox(RVBLista)

InfoContacto = New ReportTextLabel(Contacto)
InfoContacto.Visible = True
InfoContacto.Expand = True

InfoContacto.Text = " " & contador & "- " & EsteResultado!nombre & " (" & EsteResultado!telefono & ")"

EsteResultado.MoveNext
TipoColor = Not TipoColor
Inc contador
Loop

End



llamada:

Public Sub btnImprimir_Click()
Dim Reporte As ImpLista

Reporte = New ImpLista(ResultImprimir)
Reporte.Preview()

End


uso una variable de tipo result publica llamada ResultImprimir y hago doble consulta
Public Sub txtBuscar_KeyRelease()
Dim Resultado As Result
Dim Clave As String

VistaSinSeleccion()
XRegistro.Deshabilitar()
XRegistro.Borrar()

Select Case TipoFiltro
Case FILTRO_LETRAS
Resultado = XConexion.Coneccion.Exec("Select * from gente where nombre Like '%" & txtBuscar.Text & "%' order by nombre")
ResultImprimir = XConexion.Coneccion.Exec("Select * from gente where nombre Like '%" & txtBuscar.Text & "%' order by nombre")
Case FILTRO_NUMEROS
Resultado = XConexion.Coneccion.Exec("Select * from gente where Telefono Like '%" & txtBuscar.Text & "%' order by nombre")
ResultImprimir = XConexion.Coneccion.Exec("Select * from gente where Telefono Like '%" & txtBuscar.Text & "%' order by nombre")
Case FILTRO_NOTAS
Resultado = XConexion.Coneccion.Exec("Select * from gente where notas Like '%" & txtBuscar.Text & "%' order by nombre")
ResultImprimir = XConexion.Coneccion.Exec("Select * from gente where notas Like '%" & txtBuscar.Text & "%' order by nombre")
End Select

CVwLista.Clear

Do While Resultado.Available
Clave = Resultado["idgente"]
CVwLista.Add(Clave, Clave)
CVwLista[Clave][0] = Resultado["nombre"]
CVwLista[Clave][1] = Resultado["telefono"]
Resultado.MoveNext()
Loop

LabContador.Text = CVwLista.Count

End



que se yo no sera muy prolijo pero es practico jajajajaj y funciona

Perfil MP   Sitio web
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.3366s (PHP: -65% SQL: 165%)
Consultas SQL: 45 - Debug off - GZIP Activado