paging problem

[williamLOR]

dear all,

somebody please help me solve this problem.I filter my record by dropdownlist and my record shown in data grid.
but when i want to do paging. i found out it can't filter although i select the dropdownlist. Example,
in pending status. it should display out when status=pending. but in my page it display all the status. I think my code got bug . Please help.Really appreciate all ur kindness.
PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

IfNot Page.IsPostBack Then

DGStatus.CurrentPageIndex = 0

'BindData()

EndIf

EndSub

Sub BindData()

strSql = " select EntryNo,Status, Employee_ID,Signature_Type from FORM_APPROVAL "

Try

SqlDataAdapter1.Fill(DSStatus)

Dim dvStatus AsNew DataView(DSStatus.Tables("FORM_APPROVAL"))

dvStatus.RowFilter = strStatusFilter

DGStatus.DataSource = dvStatus

DGStatus.DataBind()



Catch ex As Exception

EndTry

SqlConnection1.Close()

EndSub

Sub ChangeFilter(ByVal Source As System.Object, ByVal e As System.EventArgs)

FilterByStatus(ddlStatus.SelectedItem.Text.ToStrin g())

BindData()

EndSub



Sub FilterByStatus(ByVal strStatus AsString)

SelectCase strStatus



Case "Pending"

strStatusFilter = "Status='pending'"

Case "Approved"

strStatusFilter = "Status='approved'"

Case "Rejected"

strStatusFilter = "Status='rejected'"

EndSelect

EndSub

PrivateSub DGStatus_PageIndexChanged(ByVal source AsObject, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args) Handles DGStatus.PageIndexChanged

SqlDataAdapter1.Fill(DSStatus)

Dim dvStatus AsNew DataView(DSStatus.Tables("FORM_APPROVAL"))

dvStatus.RowFilter = strStatusFilter

DGStatus.DataSource = dvStatus

DGStatus.DataBind()

DGStatus.CurrentPageIndex = e.NewPageIndex

EndSub