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