none
Hola necesito ayuda con este error RRS feed

  • Pregunta

  • Public Class frmcliente

        Private dt As New DataTable
        Private Sub frmcliente_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            mostrar()


        End Sub
        Private Sub mostrar()
            Try
                Dim func As New fcliente
                dt = func.mostrar

                datalistado.Columns.Item("Eliminar").Visible = False

                If dt.Rows.Count <> 0 Then
                    datalistado.DataSource = dt
                    txtbuscar.Enabled = True
                    datalistado.ColumnHeadersVisible = True
                    inexistente.Visible = False
                Else
                    datalistado.DataSource = Nothing
                    txtbuscar.Enabled = False
                    datalistado.ColumnHeadersVisible = False
                    inexistente.Visible = True
                End If
            Catch ex As Exception
                MsgBox(ex.Message)


            End Try
            btmnuevo.Visible = True
            btmeditar.Visible = False

            buscar()

        End Sub

        Private Sub buscar()
            Try
                Dim ds As New DataSet
                ds.Tables.Add(dt.Copy)
                Dim db As New DataView(ds.Tables(0))


                dv.rowfilter = cbocampo.Text & " like '" & txtbuscar.Text & "%'"

                If dv.Count <> 0 Then
                    inexistente.Visible = False
                    datalistado.DataSource = dv()
                    ocultar_columnas()

                Else
                    inexistente.Visible = True
                    datalistado.DataSource = Nothing

                End If
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

        Private Sub ocultar_columnas()
            datalistado.Columns(1).Visible = False


        End Sub
        Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

        End Sub

        Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtapellidos.TextChanged

        End Sub

        Private Sub Label1_Click(sender As Object, e As EventArgs) Handles idcliente.Click

        End Sub

        Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

        End Sub

        Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click

        End Sub

        Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles txtdni.TextChanged

        End Sub

        Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click

        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btmnuevo.Click, btmeditar.Click

        End Sub

        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btmcancelar.Click

        End Sub

        Private Sub frmcliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        End Sub

        Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles datalistado.CellContentClick

        End Sub

        Private Sub datalistado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbocampo.SelectedIndexChanged

        End Sub

        Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles inexistente.LinkClicked

        End Sub

        Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btmeliminar.Click

        End Sub

        Private Function dv() As Object
            Throw New NotImplementedException
        End Function

    End Class

    Cuando lo trato de ejecutar me sale 

    Error 1 'Private Sub frmcliente_load(sender As Object, e As System.EventArgs)' tiene varias definiciones con signaturas idénticas. C:\Users\carli\Documents\Visual Studio 2013\Projects\WindowsApplication2\WindowsApplication2\Presentacion\frmcliente.vb

    Gracias Por su atencion

    jueves, 12 de julio de 2018 1:44

Todas las respuestas