关于分页--老问题

[NewSun99]

看了.Net的帮助，里面关于分页都是每次都要和数据库打交道并且要求表里有一个唯一表示顺序的字段。
我一次把数据读到Reader里，然后做一个SHARE的DS，但是接着怎么分页呢？
Shared ds As ICollection

Function CreateDataSource(ByRef Reader As System.Data.SqlClient.SqlDataReader) As ICollection

Dim dt As New DataTable()
Dim dr As DataRow
Dim i, j As Integer

dt.Columns.Add(New DataColumn("tel_id", GetType(String)))
dt.Columns.Add(New DataColumn("tel_code", GetType(String)))
dt.Columns.Add(New DataColumn("dept_code", GetType(String)))
dt.Columns.Add(New DataColumn("tel_title", GetType(String)))
dt.Columns.Add(New DataColumn("tel_name", GetType(String)))
dt.Columns.Add(New DataColumn("name_spell", GetType(String)))
dt.Columns.Add(New DataColumn("tel_type", GetType(String)))

While Reader.Read()
dr = dt.NewRow()
For j = 0 To Reader.FieldCount - 1
If Not Reader.IsDBNull(j) Then
dr(j) = Reader.GetString(j)
End If
Next j
dt.Rows.Add(dr)
Reader.Read()
End While

Dim dv As New DataView(dt)
Return dv

End Function 'CreateDataSource

Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
'
DataGrid1.CurrentPageIndex = e.NewPageIndex
'DataGrid1.DataSource = ds
'绑定数据
'DataGrid1.DataBind()
End Sub
PageIndexChanged事件我不知道该怎么做了
老是不正确？

[smilefox]

http://expert.csdn.net/Expert/topic/1171/1171715.xml?temp=.5520288

[kinglht]

写一个函数，在这个函数中绑定DataGrid!
Sub BindGrid()
DataGrid1.DataSource = CreateDataSource()
DataGrid1.DataBind
End Sub


然后在PageIndexChanged事件中调用这个函数！
Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
'
DataGrid1.CurrentPageIndex = e.NewPageIndex
BindGrid
End Sub

[NewSun99]

DataGrid1.AutoGenerateColumns = false

这样我手动加列第一次显示没问题
但是分页时没变化
如果自动生成，那么却都有了！

[NewSun99]

分页没问题！

[dotnba]

如果DataGrid的GenerateColumn=True，那就不能用Columns得到列，试试这样：
Dim item As DataGridItem
For Each item In DBGrid.Controls(0).Controls
If item.ItemType = ListItemType.Header Then
item.Cells(0).Text = "标题1"
item.Cells(1).Text = "标题2"
End If
Next