[Done]

PHP كود :

Imports System.Data.SQLite
Imports System.Globalization
Imports System.Threading
Public Class form1

    Dim dt As New DataTable
    Dim page As Integer = 1
    Dim totalpages As Integer = 0
    Const perpage As Integer = 50




    Dim SQLiteconnstring As String = "Data Source=|DataDirectory|testprent.s3db"
    Dim concc As SQLiteConnection
    Dim dacc As SQLiteDataAdapter
    Dim cmcc As SQLiteCommandBuilder

    Dim all_date As New List(Of String)

    Private Sub cbox(ByVal year_ As String)
        concc = New SQLiteConnection(SQLiteconnstring)
        Dim sql As String = "Select * from testprent where ((qso_date)like '%" & year_ & "%') order by Qso_id desc"
        dacc = New SQLiteDataAdapter(sql, concc)
        cmcc = New SQLiteCommandBuilder(dacc)
        dt = New DataTable
        If dacc.Fill(dt) > 0 Then
            totalpages = Math.Ceiling(dt.Rows.Count / perpage)
            page = 1
            viewpage(page)
        End If

        'Dim kk(1) As String
        'Dim itm As ListViewItem

        'For ii As Integer = 0 To dt.Rows.Count - 1
        '    kk(0) = dt(ii)(1)
        '    kk(1) = dt(ii)(2)
        '    itm = New ListViewItem(kk)
        '    lst1.Items.Insert(0, itm)
        'Next
    End Sub

    Private Sub form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load


        lst1.FullRowSelect = True
        Me.lbl_start.Text = "0 / 0"


        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
        'lst1.Clear()
        'lst1.View = View.Details
        'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
        'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
        fill()
        Application.DoEvents()


    End Sub

    Sub fill()


        lst1.FullRowSelect = True
        Me.lbl_start.Text = "0 / 0"
        Dim da As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM testprent t WHERE testprent.Qso_id >= t.Qso_id) AS [Serial], * FROM   testprent   ", SQLiteconnstring)
        lst1.Items.Clear()
        dt.Clear()
        If da.Fill(dt) > 0 Then
            totalpages = Math.Ceiling(dt.Rows.Count / perpage)
            page = 1
            viewpage(page)


            'Dim kk(1) As String
            'Dim itm As ListViewItem

            'For ii As Integer = 0 To dt.Rows.Count - 1
            '    kk(0) = dt(ii)(1)
            '    kk(1) = dt(ii)(2)
            '    itm = New ListViewItem(kk)
            '    lst1.Items.Insert(0, itm)
            'Next


        End If







    End Sub

    Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged
        ''lst1.Clear()
        ''lst1.View = View.Details
        'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
        'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
        lst1.Items.Clear()
        cbox(c.Text)
    End Sub




    Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
        nextpage()
    End Sub

    Private Sub btn_prev_Click(sender As Object, e As EventArgs) Handles btn_prev.Click
        previouspage()
    End Sub

    Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
        lastspage()
    End Sub

    Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
        firstspage()
    End Sub

    Private Sub firstspage()
        page = 1
        viewpage(page)
    End Sub

    Private Sub lastspage()
        page = totalpages
        viewpage(page)
    End Sub

    Private Sub previouspage()
        If page > 1 Then
            page -= 1
            viewpage(page)
        End If
    End Sub

    Private Sub nextpage()
        If page < totalpages Then
            page += 1
            viewpage(page)
        End If
    End Sub

    Private Sub viewpage(ByVal p As Integer)
        Me.lbl_start.Text = "0 / 0"
        If totalpages = 0 Then Return
        If p > totalpages Then
            p = totalpages
            page = p
        End If
        Me.lbl_start.Text = String.Format("{0} / {1}", page, totalpages)
        p -= 1
        lst1.Items.Clear()
        For i = (p * perpage) To (p * perpage) + perpage - 1
            If i = dt.Rows.Count Then Exit Sub
            Dim r As DataRow = dt.Rows(i)
            lst1.Items.Add(New ListViewItem(
                           {r("Qso_id"),
                            r("omcall"),
                            r("mycall"),
                            r("qso_date"),
                            r("timeutc"),
                            r("bands"),
                            r("modes"),
            r("rst_sent")
                           }))
        Next
    End Sub




End Class