CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Imprimir Listview

(1/1)

jodijo5:
copachays, como puedo imprimir un listview, no lo puedo mandar a un crystal report porque no lo estoy sacando de una sola instruccion sql sino de varias, aqui les mando mi forma de hacerlo, aemas no lo puedo hacer con una sola, no me deja:


--- Código: Text ---     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Try : ds.Tables.Remove("aca") : Catch ex As Exception : End Try        da = New SqlDataAdapter("SELECT * FROM ContratoArrendamiento INNER JOIN ArrendatarioContratoArrendamiento ON ContratoArrendamiento.IdContratoArrendamiento = ArrendatarioContratoArrendamiento.IdContratoArrendamiento WHERE (ArrendatarioContratoArrendamiento.Representante = '1') ", cn)        da.Fill(ds, "aca")        Try : ds.Tables.Remove("arrendatario") : Catch ex As Exception : End Try        da = New SqlDataAdapter("SELECT * FROM arrendatario", cn)        da.Fill(ds, "arrendatario")        dr = ds.Tables("aca").Select("contratoarrendamiento.fechafin < getdate() and contratoarrendamiento.fechares=NULL")        llenado_normal(activos)        dr = ds.Tables("aca").Select("contratoarrendamiento.fechafin>getdate() and contratoarrendamiento.fechares=NULL")        llenado_normal(Vencidos)        dr = ds.Tables("aca").Select("and contratoarrendamiento.fechares<>NULL")        llenado_anormal(Rescindidos)    End Sub    Private Sub llenado_normal(ByVal mandado As ListView)        Dim i As Integer        For i = 0 To dr.Length - 1            Dim x As New ListViewItem            x = mandado.Items.Add(dr(i)("idcontratoarrendamiento"))            x.SubItems.Add(ds.Tables("arrendatario").Rows(dr(i)("arrendatariocontratoarrendamiento"))("razonsocial"))            x.SubItems.Add(ds.Tables("arrendatario").Rows(dr(i)("arrendatariocontratoarrendamiento"))("ruc"))            x.SubItems.Add(ds.Tables("arrendatario").Rows(dr(i)("arrendatariocontratoarrendamiento"))("appaterno") & " " & ds.Tables("arrendatario").Rows(dr(i)("arrendatariocontratoarrendamiento"))("apmaterno") & " " & ds.Tables("arrendatario").Rows(dr(i)("arrendatariocontratoarrendamiento"))("nombres"))            x.SubItems.Add(dr(i)("inicio"))            x.SubItems.Add(dr(i)("fin"))        Next    End Sub  
graias de antemano por su ayuda

Navegación

[0] Índice de Mensajes