Control Listview de visual basic
Hola! Mi duda es como hacer p/cargar un listview de solo dos campos(código y descripción), pero tengo en mi tabla códigos del 010 al 060, pero yo solo quiero cargar los códigos con su respectiva descripción desde el 010 inclusive hasta el 014 inclusive.La codificación que hice es la siguiente:
Set rc2 = BUSCAR2("caract_edif")
LVFachada.ListItems.Clear
LVFachada.ColumnHeaders.Clear
LVFachada.ColumnHeaders.Add , ,"Codigo"
LVFachada.ColumnHeaders.Add , , "Item"
LVFachada.ColumnHeaders.Add , ,"Desc"
' Next fld
With LVFachada.ListItems
rc2.MoveFirst
Do Until rc2.EOF
Do While Not rc2.EOF
Set li = LVFachada.ListItems.Add(, , rc2!codigo)
For i = 1 To rc2.Fields.Count - 1
li.SubItems(1) = rc2!Item & ""
li.SubItems(2) = rc2!desc & ""
Next i
rc2.MoveNext
Loop
Loop
End With
Set rc2 = BUSCAR2("caract_edif")
LVFachada.ListItems.Clear
LVFachada.ColumnHeaders.Clear
LVFachada.ColumnHeaders.Add , ,"Codigo"
LVFachada.ColumnHeaders.Add , , "Item"
LVFachada.ColumnHeaders.Add , ,"Desc"
' Next fld
With LVFachada.ListItems
rc2.MoveFirst
Do Until rc2.EOF
Do While Not rc2.EOF
Set li = LVFachada.ListItems.Add(, , rc2!codigo)
For i = 1 To rc2.Fields.Count - 1
li.SubItems(1) = rc2!Item & ""
li.SubItems(2) = rc2!desc & ""
Next i
rc2.MoveNext
Loop
Loop
End With
1 Respuesta
Respuesta de brainy
1
Entiendo que en la rutina BUSCAR2 realizas unas select para sacar los registros que deseas. Es en esa select donde debes filtrar dichos registros.
Por otro lado veo que tienes un bucle DO dentro de otro y uno de los dos es innecesario.
Por otro lado veo que tienes un bucle DO dentro de otro y uno de los dos es innecesario.
