none
necesito ayuda. como puedo agregar un un dato de un listview a otro listview RRS feed

  • Pregunta

  • les adjunto mi código completo y una captura del programa

    public Class TIENDA

        Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
            LoadGrid("")
        End Sub
        Public Sub LoadGrid(ByVal SearchString As String)
            'Inicio la conexion de la base de datos
            con.Open()
            'inicio mi variable a 0
            IdPaciente = 0
            'se declara una nueva tabla llamada consultorio
            Dim dt As New DataTable("ServicioProducto")
            Dim rs As OleDb.OleDbDataAdapter
            'compruebo si hay datos en el cuadro de busqueda
            If SearchString = "" Or SearchString = "Escribe aqui para buscar" Then
                'consulta en caso del cuadro de busqueda este vacío
                rs = New OleDb.OleDbDataAdapter("SELECT * FROM ServicioProducto", con)
            Else
                'consulta en tal caso que exista algun datos en el cuadro de busqueda
                rs = New OleDb.OleDbDataAdapter("SELECT * FROM ServicioProducto where ServicioProducto LIKE '" & SearchString & "%' OR Cantidad LIKE '" & SearchString & "%'", con)
            End If
            'rellena los datos en una tabla declarada consultorio
            rs.Fill(dt)
            'declara una variable para agregar los datos en el listview
            Dim indx As Integer
            'limpia el contenido del list view
            ListView1.Items.Clear()
            For indx = 0 To dt.Rows.Count - 1

                Dim lst As New ListViewItem
                'Columnas a rellenar
                lst.Text = dt.Rows(indx).Item("Id").ToString
                lst.SubItems.Add(dt.Rows(indx).Item("ServicioProducto").ToString)
                lst.SubItems.Add(dt.Rows(indx).Item("Cantidad").ToString)
                lst.SubItems.Add(dt.Rows(indx).Item("Descripcion").ToString)
                lst.SubItems.Add(dt.Rows(indx).Item("Costo").ToString)

                ListView1.Items.Add(lst)

            Next
            'libera memoria de la conexion
            rs.Dispose()
            'cierra la conexion de la base de datos
            con.Close()
        End Sub

        Private Sub TIENDA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            LoadGrid("")
        End Sub

        Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
            idpaciente = ListView1.FocusedItem.Index
            ListView2.Text = ListView1.Items(idpaciente).SubItems(1).Text
            ListView2.Text = ListView1.Items(idpaciente).SubItems(2).Text
            ListView2.Text = ListView1.Items(idpaciente).SubItems(3).Text
            ListView2.Text = ListView1.Items(idpaciente).SubItems(4).Text
        End Sub
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub

        Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
            LoadGrid(TextBox1.Text)
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        End Sub
        Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            Dim opc As DialogResult = MsgBox("¿Desea salir de esta aplicación?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Salir")
            If opc = Windows.Forms.DialogResult.Yes Then
            Else
                e.Cancel = True
            End If
        End Sub

        Private Sub TextBox1_ChangeUICues(ByVal sender As Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles TextBox1.ChangeUICues
            LoadGrid(TextBox1.Text)
        End Sub
        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
            LoadGrid(TextBox1.Text)
        End Sub

        Private Sub cmdAsignar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        End Sub

        Private Sub ListView2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView2.SelectedIndexChanged

        End Sub
    End Class


    • Editado javier meza jueves, 22 de marzo de 2018 14:49
    jueves, 22 de marzo de 2018 14:48