Datagrid Paging not working

[Coleen]

Sorry about the multi-posting, but it does not seem as though the other
newsgroups are frequented enough to get any advice on this problem...If
anyone can possibly help, I would greatly appreciate it, I've spent three
days trying figure out why paging won't work for me...TIA.

I've been to gotdotnet.com/quickstart...sa mples and reviewed the Source
control for adding paging to datagrids, my problem is that we do not connect
to an SQL Server, we are using an RPC to get the data from a DB2 database
using COBOL. It is a difficult way to get connected, and causes problems
when I'm trying to do something that's supposed to be as simple as paging
for a datagrid. When I select the page number to go to, I get a blank
screen, with Currentpageinde x is 1 and PageCount is 0. Why doesn't it page
correctly? Here is my code...Any suggestions?

Dim lo_AZRM001A_SEL As MotorFuel.AZRM0 01A_SEL
Dim lo_misc_func As MotorFuel.misc_ func
Dim ds_mc As DataSet
Dim dt_mc As New DataTable()
Dim createdataview as DataView

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If Not Page.IsPostBack Then
uf_get_supplier _list()
End If
End Sub

Private Sub uf_get_supplier _list()
'This function gets the Withdrawal listing if available.
'Define the local variables.
Dim li_no_row As Integer = 0
Try
'Instantiate an RPC to get an Withdrawal Listing.
lo_AZRM001A_SEL = New MotorFuel.AZRM0 01A_SEL()
lo_misc_func = New MotorFuel.misc_ func()
Catch
'Destroy the objects.
lo_AZRM001A_SEL = Nothing
lo_misc_func = Nothing
End Try
'Set the data to the Data Grid if the li_no_row is not equal "0".
If li_no_row <> 0 Then
If Page.IsPostBack = False Then
dt_mc = lo_AZRM001A_SEL .get_ddl_sel_su p
dtg_load_data()
End If
End If
'Destroy the objects.
lo_AZRM001A_SEL = Nothing
lo_misc_func = Nothing

End Sub

Private Sub btn_sel_sup_ok_ Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btn_sel_sup_ok. Click
Response.Redire ct("../Common/mc_rpt_period.a spx")
End Sub

Sub dtg_load_data()
dtg_sel_sup.Dat aSource = dt_mc
dtg_sel_sup.Dat aKeyField = "BusinessID "
dtg_sel_sup.Dat aMember = "BusinessNa me"
dtg_sel_sup.Dat aMember = "Account"
dtg_sel_sup.Dat aBind()
createdataview = New DataView(dt_mc)
'Destroy the objects.
lo_AZRM001A_SEL = Nothing
lo_misc_func = Nothing
End Sub

Sub dtg_sel_sup_Pag e(ByVal sender As Object, ByVal e As
DataGridPageCha ngedEventArgs)
dtg_sel_sup.Cur rentPageIndex = e.NewPageIndex
bindgrid()
End Sub

Sub bindgrid()
dtg_sel_sup.Dat aSource = createdataview
dtg_sel_sup.Dat aBind()
showstats()
End Sub

Sub showstats()
lblcurrentindex .Text = "CurrentpageInd ex is " &
dtg_sel_sup.Cur rentPageIndex
lblpagecount.Te xt = "PageCount is " & dtg_sel_sup.Pag eCount
End Sub

[Tu-Thach]

you need to re-populate createdataview in your databind()
method. Otherwise, it has no data in it.

Tu-Thach

-----Original Message-----
Sorry about the multi-posting, but it does not seem as though the othernewsgroups are frequented enough to get any advice on this problem...Ifanyone can possibly help, I would greatly appreciate it, I've spent threedays trying figure out why paging won't work for me...TIA.

I've been to gotdotnet.com/quickstart...sa mples and reviewed the Sourcecontrol for adding paging to datagrids, my problem is that we do not connectto an SQL Server, we are using an RPC to get the data from a DB2 databaseusing COBOL. It is a difficult way to get connected, and causes problemswhen I'm trying to do something that's supposed to be as simple as pagingfor a datagrid. When I select the page number to go to, I get a blankscreen, with Currentpageinde x is 1 and PageCount is 0. Why doesn't it pagecorrectly? Here is my code...Any suggestions?

Dim lo_AZRM001A_SEL As MotorFuel.AZRM0 01A_SEL
Dim lo_misc_func As MotorFuel.misc_ func
Dim ds_mc As DataSet
Dim dt_mc As New DataTable()
Dim createdataview as DataView

Private Sub Page_Load(ByVal sender As System.Object, ByVal e AsSystem.EventAr gs) Handles MyBase.Load
If Not Page.IsPostBack Then
uf_get_supplier _list()
End If
End Sub

Private Sub uf_get_supplier _list()
'This function gets the Withdrawal listing if available.
'Define the local variables.
Dim li_no_row As Integer = 0
Try
'Instantiate an RPC to get an Withdrawal Listing.
lo_AZRM001A_SEL = New MotorFuel.AZRM0 01A_SEL()
lo_misc_func = New MotorFuel.misc_ func()
Catch
'Destroy the objects.
lo_AZRM001A_SEL = Nothing
lo_misc_func = Nothing
End Try
'Set the data to the Data Grid if the li_no_row is not equal "0".If li_no_row <> 0 Then
If Page.IsPostBack = False Then
dt_mc = lo_AZRM001A_SEL .get_ddl_sel_su p
dtg_load_data()
End If
End If
'Destroy the objects.
lo_AZRM001A_SE L = Nothing
lo_misc_func = Nothing

End Sub

Private Sub btn_sel_sup_ok_ Click(ByVal sender As System.Object, ByVal e AsSystem.EventAr gs) Handles btn_sel_sup_ok. Click
Response.Redire ct("../Common/mc_rpt_period.a spx")
End Sub

Sub dtg_load_data()
dtg_sel_sup.Dat aSource = dt_mc
dtg_sel_sup.Dat aKeyField = "BusinessID "
dtg_sel_sup.Dat aMember = "BusinessNa me"
dtg_sel_sup.Dat aMember = "Account"
dtg_sel_sup.Dat aBind()
createdataview = New DataView(dt_mc)
'Destroy the objects.
lo_AZRM001A_SEL = Nothing
lo_misc_func = Nothing
End Sub

Sub dtg_sel_sup_Pag e(ByVal sender As Object, ByVal e As
DataGridPageCh angedEventArgs)
dtg_sel_sup.Cur rentPageIndex = e.NewPageIndex
bindgrid()
End Sub

Sub bindgrid()
dtg_sel_sup.Dat aSource = createdataview
dtg_sel_sup.Dat aBind()
showstats()
End Sub

Sub showstats()
lblcurrentindex .Text = "CurrentpageInd ex is " &
dtg_sel_sup.Cu rrentPageIndex
lblpagecount.Te xt = "PageCount is " & dtg_sel_sup.Pag eCountEnd Sub

.

[Coleen]

So here - I need to do something like this?
Sub dtg_load_data()
dtg_sel_sup.Dat aSource = dt_mc
dtg_sel_sup.Dat aKeyField = "BusinessID "
dtg_sel_sup.Dat aMember = "BusinessNa me"
dtg_sel_sup.Dat aMember = "Account"
createdataview = New DataView(dt_mc)
dtg_sel_sup.Dat aBind()

I'm not really sure, since I had already re-bound the datagrid only
difference is that I changed the position of the databind. I'm having
trouble getting a connection to our database right now, so I can't test it.
If this is not what you meant, could you please give me an example? Thanks
very much for the assistance :-)

Coleen


"Tu-Thach" <an*******@disc ussions.microso ft.com> wrote in message
news:02******** *************** *****@phx.gbl.. .

you need to re-populate createdataview in your databind()
method. Otherwise, it has no data in it.

Tu-Thach

[Tu-Thach]

Look at your function for handling page change, you have

Sub dtg_sel_sup_Pag e(ByVal sender As Object, ByVal e As
DataGridPageCha ngedEventArgs)
dtg_sel_sup.Cur rentPageIndex = e.NewPageIndex
bindgrid()
End Sub

which calls bindgrid() to bind your datagrid. The
bindgrid method:

Sub bindgrid()
dtg_sel_sup.Dat aSource = createdataview
dtg_sel_sup.Dat aBind()
showstats()
End Sub

In this method, you set the datasource for your grid to
the variable createdataview. Nowhere in this code did you
initialize data for the variable createdataview.
Therefore, when you bind the datagrid, it does not have
any data and that's why the datagrid shows nothing. You
need to do something similar to your dtg_load_data()
method.

Tu-Thach

-----Original Message-----
So here - I need to do something like this?
Sub dtg_load_data()
dtg_sel_sup.Dat aSource = dt_mc
dtg_sel_sup.Dat aKeyField = "BusinessID "
dtg_sel_sup.Dat aMember = "BusinessNa me"
dtg_sel_sup.Dat aMember = "Account"
createdataview = New DataView(dt_mc)
dtg_sel_sup.Dat aBind()

I'm not really sure, since I had already re-bound the datagrid onlydifference is that I changed the position of the databind. I'm havingtrouble getting a connection to our database right now, so I can't test it.If this is not what you meant, could you please give me an example? Thanksvery much for the assistance :-)

Coleen


"Tu-Thach" <an*******@disc ussions.microso ft.com> wrote in messagenews:02******* *************** ******@phx.gbl. ..

you need to re-populate createdataview in your databind () method. Otherwise, it has no data in it.

Tu-Thach

.

[Coleen]

Umm, I totally missed that - Thanks! I guess that's what happens when you
try to do too much multi-tasking...

"Tu-Thach" <an*******@disc ussions.microso ft.com> wrote in message
news:07******** *************** *****@phx.gbl.. .

Look at your function for handling page change, you have

Sub dtg_sel_sup_Pag e(ByVal sender As Object, ByVal e As
DataGridPageCha ngedEventArgs)
dtg_sel_sup.Cur rentPageIndex = e.NewPageIndex
bindgrid()
End Sub

which calls bindgrid() to bind your datagrid. The
bindgrid method:

Sub bindgrid()
dtg_sel_sup.Dat aSource = createdataview
dtg_sel_sup.Dat aBind()
showstats()
End Sub

In this method, you set the datasource for your grid to
the variable createdataview. Nowhere in this code did you
initialize data for the variable createdataview.
Therefore, when you bind the datagrid, it does not have
any data and that's why the datagrid shows nothing. You
need to do something similar to your dtg_load_data()
method.

Tu-Thach

-----Original Message-----
So here - I need to do something like this?
Sub dtg_load_data()
dtg_sel_sup.Dat aSource = dt_mc
dtg_sel_sup.Dat aKeyField = "BusinessID "
dtg_sel_sup.Dat aMember = "BusinessNa me"
dtg_sel_sup.Dat aMember = "Account"
createdataview = New DataView(dt_mc)
dtg_sel_sup.Dat aBind()

I'm not really sure, since I had already re-bound the

datagrid only

difference is that I changed the position of the

databind. I'm having

trouble getting a connection to our database right now,

so I can't test it.

If this is not what you meant, could you please give me

an example? Thanks

very much for the assistance :-)

Coleen


"Tu-Thach" <an*******@disc ussions.microso ft.com> wrote in

message

news:02******* *************** ******@phx.gbl. ..

you need to re-populate createdataview in your databind () method. Otherwise, it has no data in it.

Tu-Thach

.