上記のように、コードビハインドで作成することは可能ですか。また、データベースからどのように取得しますか? 詳細についてはウェブサイトを見ましたが、ちょっと混乱していました。それを行う簡単な方法はありますか?ありがとう
Ok。申し訳ありませんが、これは私のコードです
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
UpdateDatabind()
End If
End Sub
Sub UpdateDatabind()
Dim Product As New Product
Dim dataset As New DataSet
Dim count As Integer
Dim Pds As New PagedDataSource
dataset = Product.GetProduct()
If dataset.Tables(0).Rows.Count > 0 Then
'For paging
Pds.DataSource = dataset.Tables(0).DefaultView
Pds.AllowPaging = True
Pds.PageSize = 1
Pds.CurrentPageIndex = 0
Session("Pds") = Pds
'Bind the datalist
dlProducts.DataSource = dataset
dlProducts.DataBind()
count = dataset.Tables(0).Rows.Count
lblCount.Text = "Total records:" & count
lbl1.Text = "Showing Page: " & Pds.CurrentPageIndex.ToString() & " of " & Pds.PageCount.ToString()
Else
lblCount.Text = "No records is found"
End If
End Sub
Private Sub dlProducts_UpdateCommand(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles dlProducts.UpdateCommand
dlProducts.DataBind()
End Sub
Public Sub PrevNext_Command(source As Object, e As CommandEventArgs)
' Request.CurrentExecutionFilePath
Dim pds As PagedDataSource = Session("pds")
Dim CurrentPage As Integer
If Not CurrentPage = 0 Or CurrentPage < pds.PageCount Then
CurrentPage = pds.CurrentPageIndex
If e.CommandName = "Next" Then
CurrentPage += 1
Response.Redirect("~/Products.aspx?PageIndex=" & CurrentPage)
ElseIf e.CommandName = "Previous" Then
CurrentPage -= 1
Response.Redirect("~/Products.aspx?PageIndex=" & CurrentPage)
End If
Else
If pds.IsFirstPage Then
lbPrev.Visible = False
lbPrev1.Visible = False
End If
If pds.IsLastPage Then
lbNext.Visible = False
lbNext1.Visible = False
End If
End If
End Sub
データリストで結果を取得できますが、行と列を制限していないようです。例 3x3 のデータリストを取得したい。