i really dont know, im just running the code from my pc where i develop

this is my code

 

Imports

 

Microsoft.SqlServer

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Partial

 

 

Public Class

_Default

 

 

Inherits

System.Web.UI.Page

 

 

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me

.Load

 

 

If Not IsPostBack

Then

LoadDates()

LoadReleaseDates()

 

 

End

If

 

 

End

Sub

 

 

 

Private Sub

LoadDates()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim Mycmd As

SqlClient.SqlCommand

 

 

Dim MyRd As

SqlClient.SqlDataReader

 

 

Try

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

mycon.Open()

Mycmd =

 

New SqlClient.SqlCommand("exec sp_GetFromTo"

, mycon)

MyRd = Mycmd.ExecuteReader()

Dfrom.Items.Clear()

Dto.Items.Clear()

 

 

Do While

MyRd.Read

Dfrom.Items.Add(MyRd.GetValue(0))

Dto.Items.Add(MyRd.GetValue(0))

 

 

Loop

Dfrom.Text = Format(Today,

 

"yyyy-MM"

)

Dto.Text = Dfrom.Items(Dfrom.Items.Count - 1).Text

mycon.Close()

 

 

 

Catch Ex As

Exception

 

 

If mycon.State = ConnectionState.Open Then

mycon.Close()

 

 

End

Try

 

 

End

Sub

 

 

Private Sub

LoadReleaseDates()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim Mycmd As

SqlClient.SqlCommand

 

 

Dim MyRd As

SqlClient.SqlDataReader

 

 

Try

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

mycon.Open()

Mycmd =

 

New SqlClient.SqlCommand("SELECT DISTINCT RELEASEDATE FROM TBL_PSI WITH (NOLOCK) ORDER BY RELEASEDATE"

, mycon)

MyRd = Mycmd.ExecuteReader()

DRelease.Items.Clear()

 

 

Do While

MyRd.Read

DRelease.Items.Add(MyRd.GetValue(0))

 

 

Loop

DRelease.Text = DRelease.Items(DRelease.Items.Count - 1).Text

mycon.Close()

 

 

 

Catch Ex As

Exception

 

 

If mycon.State = ConnectionState.Open Then

mycon.Close()

 

 

End

Try

 

 

End

Sub

 

 

Private Sub

DisplayGrid()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim MyDa As

SqlClient.SqlDataAdapter

 

 

Dim MyDT As New

DataTable

 

 

Dim SqlCommand As

String

 

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

SqlCommand =

 

"exec sp_Get_PSI "

& _

 

 

"@MonthFrom = '" + Right(Dfrom.Text.Trim, 2) + "', "

& _

 

 

"@MonthTo = '" + Right(Dto.Text.Trim, 2) + "', "

& _

 

 

"@YearFrom = '" + Left(Dfrom.Text, 4) + "',"

& _

 

 

"@YearTo = '" + Left(Dto.Text, 4) + "', "

& _

 

 

"@fctbp = " + IIf(Dfctbp.Text.ToUpper = "FCT", "1", "0") + ", "

& _

 

 

"@release = '" + DRelease.Text +

"'"

mycon.Open()

MyDa =

 

New

SqlClient.SqlDataAdapter(SqlCommand, mycon)

MyDa.Fill(MyDT)

 

 

'Show the grid

webgrid.DataSource = MyDT

 

 

 

End

Sub

 

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles

Button1.Click

DisplayGrid()

 

 

End

Sub

End

 

 

Class

Thanks

on english please?  sorry didnt understand

my question is to handle the postback to avoid refreshing my filters and controls when trying to group by or use grid filters since now im loosing the data whenever one of those two action are made.

Thanks.