Imports System
Imports System.Data
Imports System.Data.SqlClient

Partial Class Admin_supplier_buyer
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Not IsPostBack Then
            If Session("AdminID") = Nothing Then
                Response.Redirect("AdminLogin.aspx")
            End If
            fillgrid()
        End If

    End Sub

    Public Sub fillgrid()
        Dim dt As New DataTable
        dt = ReturnDataTable("SELECT Supplier_Master.Supplier_Name, Supplier_Master.Supplier_Address, Supplier_Master.Supplier_IsBuyer, BuyerRegister.BuyerRegister_Name, BuyerRegister.BuyerRegister_EmailId, AdminUser.AdminUser_Name FROM Supplier_Master INNER JOIN BuyerRegister ON Supplier_Master.Supplier_BuyerID = BuyerRegister.BuyerRegister_Kid INNER JOIN AdminUser ON Supplier_Master.Supplier_AdminUserId = AdminUser.AdminUser_Kid WHERE (Supplier_Master.Supplier_IsBuyer = 'Y')")
        gvSupplierBuyer.DataSource = dt
        gvSupplierBuyer.DataBind()
        dt.Clear()
    End Sub

    Protected Sub gvSupplierBuyer_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvSupplierBuyer.PageIndexChanging
        Try
            gvSupplierBuyer.PageIndex = e.NewPageIndex
            fillgrid()
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub
End Class