[dubai.eig]

السلام عليكم ورحمة الله

استفسار بخصوص عمل زر Next previous  ل listview 


الكود اللي عندي يعرض المعلومات بس محتاج يكون في كل صفحة عدد 15 سجل والباقي اروح لهم عن طريق زر ال Next 

هذا الكود الخاص بي

علما باني حاولت بس ما ضبط معاي

كود :

Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

           sql = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"
           con.Open()
           da = New SQLiteDataAdapter(sql, con)
           da.Fill(dt)
           Dim newrow As DataRow
           For Each newrow In dt.Rows
                lst1.Items.Add(newrow.Item(0)) 'this is for ID
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(1))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(2))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(3))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(4))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(5))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(6))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(7))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(8))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(9))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(10))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(11))
               lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(12))
   
           Next

   


وشكرا لكم بارك الله فيكم