onpageindexchanged事件:sub page_change(sender as object,e as DataGridPageChangedEventArgs) MyDataGrid.CurrentPageIndex = e.NewPageIndex BindGrid() '再次绑定 end subSub BindGrid() MyDataGrid.DataSource = CreateDataSource() MyDataGrid.DataBind() End Sub 第二个问题:要采用模板
sub submit_Click(source as object,e as eventargs) dim myselectquery as string="select * from planes" dim myConnString as string="provider=microsoft.jet.oledb.4.0;"&"data source=C:\Documents and Settings\Administrator\my documents\db1.mdb" Dim myConnection As new oledbConnection(myConnString) myConnection.Open() dim mydataadapter as new oledbdataadapter(myselectquery,myconnection) mydataadapter.fill(mydataset,"planes") end sub sub loaddatasource() //读取数据源 end sub sub binddata() loaddatasource() datagrid1.DataSource=mydataset datagrid1.DataBind() end subsub mydatagrid(source as object,e as datagridpagechangedeventargs) datagrid1.currentpageindex=e.newpageindex binddata() end sub那loaddatasource()中读取数据源处怎么写?
请指点
MyDataGrid.CurrentPageIndex = e.NewPageIndex
BindGrid() '再次绑定
end subSub BindGrid()
MyDataGrid.DataSource = CreateDataSource()
MyDataGrid.DataBind()
End Sub
第二个问题:要采用模板
dim myselectquery as string="select * from planes"
dim myConnString as string="provider=microsoft.jet.oledb.4.0;"&"data source=C:\Documents and Settings\Administrator\my documents\db1.mdb"
Dim myConnection As new oledbConnection(myConnString) myConnection.Open()
dim mydataadapter as new oledbdataadapter(myselectquery,myconnection)
mydataadapter.fill(mydataset,"planes")
end sub
sub loaddatasource()
//读取数据源
end sub
sub binddata()
loaddatasource()
datagrid1.DataSource=mydataset
datagrid1.DataBind()
end subsub mydatagrid(source as object,e as datagridpagechangedeventargs)
datagrid1.currentpageindex=e.newpageindex
binddata()
end sub那loaddatasource()中读取数据源处怎么写?