0

ASP.NET 3.5 Access 2003 DataSource に DataList があります。DataListVB を使用してコントロールのページングを作成したいと考えています。

4

1 に答える 1

2

出力 DataListには、のようなパギング機能がありませんGridViewが、のパギング機能を実装することは可能ですDataList。ここで PagedDataSourceは、データバインドされたコントロールのページング関連のプロパティを囲むページングを実行しました。これにより、ページングを実行できます。PagedDataSourceに関する詳細

インラインコード

   <div>
        <asp:DataList ID="dataListStudent" runat="server">
            <ItemTemplate>
                <table cellpadding="10">
                    <tr>
                        <td nowrap="nowrap">
                            <b>Student id</b>
                        </td>
                        <td nowrap="nowrap">
                            <b>First name</b>
                        </td>
                        <td nowrap="nowrap">
                            <b>Last name</b>
                        </td>
                        <td>
                            <b>City</b>
                        </td>
                    </tr>
                    <hr />
                    <tr>
                        <td nowrap="nowrap">
                            <%# Eval("StudentID") %>
                        </td>
                        <td nowrap="nowrap">
                            <%# Eval("FirstName") %>
                        </td>
                        <td nowrap="nowrap">
                            <%# Eval("LastName") %>
                        </td>
                        <td nowrap="nowrap">
                            <%# Eval("City") %>
                        </td>
                    </tr>
                </table>
            </ItemTemplate>
        </asp:DataList>
        <br />
        <table border="0" width="410">
            <tr>
                <td align="left">
                    <asp:LinkButton ID="lbPrev" runat="server">
Prev
                    </asp:LinkButton>
                </td>
                <td align="right">
                    <asp:LinkButton ID="lbNext" runat="server">
Next
                    </asp:LinkButton>
                </td>
            </tr>
        </table>
    </div>

コードビハインド

Imports System.Data
Imports System.Data.OleDb

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim pageds As New PagedDataSource()

    Public Property CurrentPage() As Integer

        Get
            If Me.ViewState("CurrentPage") Is Nothing Then
                Return 0
            Else
                Return Convert.ToInt16(Me.ViewState("CurrentPage").ToString())
            End If
        End Get

        Set(ByVal value As Integer)
            Me.ViewState("CurrentPage") = value
        End Set
    End Property
    Sub bindDataList()
        Dim sql As String
        sql = "SELECT * FROM STUDENTS"
        Dim da As New OleDbDataAdapter(sql, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Course.mdb")
        Dim dt = New DataTable()
        da.Fill(dt)
        Try
            pageds.DataSource = dt.DefaultView
            pageds.AllowPaging = True
            pageds.PageSize = 3
            pageds.CurrentPageIndex = CurrentPage
            lbNext.Enabled = Not pageds.IsLastPage
            lbPrev.Enabled = Not pageds.IsFirstPage
            dataListStudent.DataSource = pageds
            dataListStudent.DataBind()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Protected Sub lbPrev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbPrev.Click
        currentPage -= 1
        bindDataList()
    End Sub
    Protected Sub lbNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbNext.Click
        currentPage += 1
        bindDataList()

    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            bindDataList()

        End If
    End Sub
End Class

接続文字列、列名が異なる場合があります。DataListのレイアウトを変えて、自由に操作してください。 うまくいけば、それはあなたが問題を解決するのに役立つでしょう。

于 2012-06-30T01:51:38.483 に答える