funcion comun para muchas paginas

[krakxp]

hola mira este codigo seria para llenar el combo de mi pagina

Código:

Private Indicador As New Indicador

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Not IsPostBack Then

            'Area
            sArea = CStr(Session("ClaveArea"))
            'Usuario
            iCveEntUsu = CInt(Session.Item("ClaveUsuario"))
            'Lenamos el combo de indicadores del area
            FillInd(sArea, iCveEntUsu)
        End If
    End Sub


 'Llena combo de de indicadores
    Private Sub FillInd(ByVal sArea As String, ByVal iCveEntUsu As Integer)
        Dim dvGetAInd As DataView
        dvGetAInd = Indicador.dvGetIndAre(sArea, iCveEntUsu)
        If dvGetAInd Is Nothing Then
            Me.LblInfo.Text = "La funcion Ind.GetIndAre no pudo procesar la solicitud"
        ElseIf dvGetAInd.Table.Rows.Count <= 0 Then
            Me.LblInfo.Text = "Esta Área o usuario no tiene asignados ningun indicador."
        Else
            With Me.CmbNomInd
                .DataSource = dvGetAInd
                .DataValueField = dvGetAInd.Table.Columns(0).ColumnName
                .DataTextField = dvGetAInd.Table.Columns(1).ColumnName
                .DataBind()
                .Items.Insert(0, New ListItem("ELIJA UN INDICADOR", "0"))
            End With          
        End If
    End Sub

ahora para llmar a la funcion que llena el combo pues seria asi

Código:

Public Class Indicador

    Private Data As New Data
    Private Area As New ClArea

 'Obtenemos los de indicadores activos segun el area correspondiente y el usuario
    Public Function dvGetIndAre(ByVal sCveEntAre As String, ByVal iCveEntUsu As Integer) As DataView

        Dim sSql As String
        Dim ds As DataSet
        Dim dv As DataView

        'creamos la consulta
        sSql = "SELECT CveEntInd as CveEntInd, ISNULL(RTRIM(NomEntInd),'') AS NomEntInd "
        sSql += " FROM TblEntInd"
        sSql += " WHERE StsEntInd = 1 "
        sSql += " AND CveEntAre like '%" & sCveEntAre & "%'"
        sSql += " AND CveEntUsu = " & iCveEntUsu
        sSql += " ORDER BY NomEntInd ASC"

        'obtenemos un dataset
        ds = Data.GetDataSetsSql(sSql)

        'y lo ponemos en un dataview
        dv = ds.Tables(0).DefaultView

        Return dv

    End Function


End Class

es´pero te sirva de algo