[dubai.eig]

(14-10-17, 06:32 PM)a.ahmed كتب :

PHP كود :

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

Dim dt As New DataTable

Dim page As Integer = 1
Dim totalpages As Integer = 0
Dim perpage As Integer = 15

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"
    Dim da As New SQLiteDataAdapter(Sql, con)
    If da.Fill(dt) > 0 Then
        totalpages = Math.Ceiling(dt.Rows.Count / perpage)
        viewpage(page)
    End If
End Sub




Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    nextpage()
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    previouspage()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    lastspage()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.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.Label1.Text = 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("id"), r("CALLop"), r("MOHT"), r("DAY"), r("UTC"), r("MHz"), r("MODE"), r("sent_number"), r("rcvd_number"), r("multi1"), r("multi2"), r("point"), r("country")}))
    Next
End Sub 


شكرا احسنت عمل جميل بارك الله فيك

ضبط معاي والحمدالله

بس سؤال اخير

قبل كنت اضغط على اي سجل لاقوم  بالتعديل على السجل المختار

   

كود :

 Private Sub lst1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.Click

       TextBox1.Text = lst1.SelectedItems(0).SubItems(0).Text
       TextBox2.Text = lst1.SelectedItems(0).SubItems(1).Text
       TextBox3.Text = lst1.SelectedItems(0).SubItems(2).Text
       TextBox4.Text = lst1.SelectedItems(0).SubItems(3).Text
       TextBox5.Text = lst1.SelectedItems(0).SubItems(4).Text
       TextBox6.Text = lst1.SelectedItems(0).SubItems(5).Text
       TextBox7.Text = lst1.SelectedItems(0).SubItems(6).Text
       TextBox8.Text = lst1.SelectedItems(0).SubItems(7).Text
       TextBox9.Text = lst1.SelectedItems(0).SubItems(8).Text
       TextBox10.Text = lst1.SelectedItems(0).SubItems(9).Text
       TextBox11.Text = lst1.SelectedItems(0).SubItems(10).Text
       TextBox12.Text = lst1.SelectedItems(0).SubItems(11).Text
       TextBox13.Text = lst1.SelectedItems(0).SubItems(12).Text
       TextBox14.Text = lst1.SelectedItems(0).SubItems(13).Text
   End Sub

الان ما ضابط معاي لان الكود تغير 

هل من طريقه اخرى بارك الله فيك

وشكرا على وقتك