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