vendorsearch.aspx.vb

its it tracker and used for track

Public Partial Class VendorSearch
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Title = "ITracker: Vendor Search"
        lblPageHeader.Text = "Vendor Search: "
        Me.Form.DefaultButton = btnSearch.UniqueID
    End Sub

    Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim _vendorList As dfs.ITracker.Business.VendorList = dfs.ITracker.Business.Vendor.Search(txtVendorName.Text)
        gvVendors.DataSource = _vendorList
        gvVendors.DataBind()
    End Sub

    Private Sub gvVendors_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvVendors.RowCommand
        If e.CommandName = "Select" Then
            Response.Redirect("~/Vendor.aspx?id=" & CType(e.CommandSource, GridView).DataKeys(CInt(e.CommandArgument)).Value.ToString)
        End If
    End Sub

    Private Sub VendorSearch_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Me.MasterPageFile = System.Configuration.ConfigurationManager.AppSettings("MasterPageName")
    End Sub
End Class