'Noviembre 2005
'CONDORBS


Public Class clBusqueda
    'clase q me permite realizar una busqueda en una columna
    Public Function buscarRegistro(ByVal prmPos As Integer, ByVal NombreDataset As String, ByVal NombreCampo As String, ByVal DS As DataSet) As Integer
        'Dim prmPos As Integer
        'Código para buscar un registro
        DS.Copy()
        Dim BuscarValor As String
        Try
            Dim dvCatClientes As DataView = _
             New DataView(DS.Tables(NombreDataset), "", NombreCampo, DataViewRowState.CurrentRows)

            'Preguntamos el valor a buscar
            BuscarValor = InputBox("Introduce un valor a buscar del campo: " & NombreCampo, "Buscar")
            If Not BuscarValor = "" Then
                'Regresamos el index del valor encontrado
                'Return dvCatClientes.Find(BuscarValor)
                Exit Function
            Else
                'Si no se especificó el valro a buscar, regresamos la
                'posición (index) del valor original(prmPos)
                MessageBox.Show("La búsqueda no se puede realizar", "Información del sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Return prmPos
                Exit Function
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            Return prmPos
            Exit Function
        End Try
    End Function



End Class