Private cx As Connection
Private rs As Result
Private Listado As New Collection[]
Public Sub _new()
Dim Linea As ReportLabel
Dim i As Integer
cx = ModDB.conectar()
rs = cx.Exec("SELECT * FROM tbusuarios where usuario LIKE '" & (frmusuarios.txtusuario.Text) & "'")
For Each rs
Linea = New ReportLabel(RVBCont)
'aqui muestra los resultados en el reporte pero si el usuario en margar y se llama Mario Garcia y el otro es lintux y su nombre es
'Linux Tux Software Libre a la hora de mostrar si es supervisor me lo muestra no en orden (parejo, fijo) si no todo corrido.
Linea.Text = rs!usuario & " " & rs!nombre_completo & " " & rs!supervisor
ReportLabel1.Text = rs!usuario
ReportLabel2.Text = rs!nombre_completo
ReportLabel3.Text = rs!supervisor
Next
ReportLabel4.Text = Date
Private rs As Result
Private Listado As New Collection[]
Public Sub _new()
Dim Linea As ReportLabel
Dim i As Integer
cx = ModDB.conectar()
rs = cx.Exec("SELECT * FROM tbusuarios where usuario LIKE '" & (frmusuarios.txtusuario.Text) & "'")
For Each rs
Linea = New ReportLabel(RVBCont)
'aqui muestra los resultados en el reporte pero si el usuario en margar y se llama Mario Garcia y el otro es lintux y su nombre es
'Linux Tux Software Libre a la hora de mostrar si es supervisor me lo muestra no en orden (parejo, fijo) si no todo corrido.
Linea.Text = rs!usuario & " " & rs!nombre_completo & " " & rs!supervisor
ReportLabel1.Text = rs!usuario
ReportLabel2.Text = rs!nombre_completo
ReportLabel3.Text = rs!supervisor
Next
ReportLabel4.Text = Date
Y aqui pongo el otro codigo donde quiero mostrar los datos pero aqui es por modio de un labelreport grafico ya que de esta forma si sale ordenadamente pero no logro hacerlos.
Private cx As Connection
Private rs As Result
Private Listado As New Collection[]
Public Sub _new()
Dim Linea As ReportLabel
Dim i As Integer
cx = ModDB.conectar()
rs = cx.Exec("SELECT * FROM tbusuarios where usuario LIKE '" & (frmusuarios.txtusuario.Text) & "'")
For i = 0 To rs.Count - 1
'aqui muestra los resultados en el reporte ya sea del primero pero no me muestra los 3 usuarios que existen solo
'Mario Garcia
'Mario Garcia
'Mario Garcia
'y Linux Tux Software Libre no lo muestra y asi hubieran 10 solo muestra 10 veces Mario Garcia.
ReportLabel1.Text = rs!usuario
ReportLabel2.Text = rs!nombre_completo
ReportLabel3.Text = rs!supervisor
rs.MoveFirst
Next
ReportHBox1.Data = rs
ReportLabel4.Text = Date
Si alguien me ayuda se los voy agradecer, o si necesitan el codigo fuente lo puedo subir.