Actualizar ListView

[kikevar]

Hola de nuevo y muchas gracias por sus ayudas anteriores

A ver en mi programa mando llamar un form1 con un list view en donde me muestra los datos de mi bd, hasta aqui todo de maravilla, tenmgo un boton para crear un registro nuevo el cual llama a otro form2 para crear los datos del nuevo registro en la bd, mi pregunta es, como hago para que se actualice automatica mente mi listview en el form1 cuando cierro el form2 despues de aver guardado los datos en la bd.

Espero averme explicado.

Gracias de antemano y que tengan una tarde excelente

[seba123neo]

Hola, pues despues de la linea de codigo que muestra el formulario para agregar el registro debes poner la linea de codigo para que actualize otra vez el listview...por ejemplo

Código vb:

Private Sub Command1_Click()
    Form2.Show vbModal
    Call FuncionQueActualiza
End Sub
 

entonces despues de cerrar el formulario sigue a la linea siguiente y actualiza el listview...

saludos.

[yanker]

en C# los he conseguido con IDdatasource.databind()

Saludos

Código ASP:

dsListMaterialRequest.DataBind();
 

[Gakex]

Hola, seba123neo tiene arazon puedes colocar las instrucciones que llenan el list view en una función y llamarla al cargar el programa y desde otro formulario

Colocala en un modulo bas y la llamas cuando quieras cargar el listview al inicio o despues para recargar o actualizar desde el formulario original o desde cualquier otro.

aqui te dejo una función que realize para un poryecto que acabo de terminar

Código:

Sub LoadCuentasOnListview()
On Error Resume Next
    asg
    CNN.Open PRV
    SQL1 = "SELECT  idcuenta, nombres,apellidos, org, fechaapertura, saldo_inicial, plandepago, fechaultimopago FROM Clientes, Cuentas WHERE Actividad = 'activo' AND idcliente = idAcliente"
    RST.Open SQL1, CNN, adOpenStatic
    frmMain.listCuentas.ListItems.Clear
    While RST.EOF = False
        Set LST = frmMain.listCuentas.ListItems.Add(, , Format(RST(0), "    0000000"))
            LST.SubItems(1) = RST(1) & " " & RST(2)
            LST.SubItems(2) = RST(3)
            LST.SubItems(3) = RST(4)
            LST.SubItems(4) = "$ " & RST(5)
            LST.SubItems(5) = RST(6) & " Quincenas"
            LST.SubItems(6) = RST(7)
        RST.MoveNext
    Wend
    CNN.Close
End Sub

espero que te sirba de ayuda.