[dubai.eig]

(15-10-17, 04:03 AM)a.ahmed كتب :

PHP كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    lst1.FullRowSelect = True
    Me.Label1.Text = "0 / 0"
    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 


PHP كود :

Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged
    If lst1.SelectedItems.Count = 0 Then Return
    Dim itm As ListViewItem = lst1.SelectedItems(0)
    TextBox1.Text = itm.SubItems(0).Text
    TextBox2.Text = itm.SubItems(1).Text
    TextBox3.Text = itm.SubItems(2).Text
    TextBox4.Text = itm.SubItems(3).Text
    TextBox5.Text = itm.SubItems(4).Text
    TextBox6.Text = itm.SubItems(5).Text
    TextBox7.Text = itm.SubItems(6).Text
    TextBox8.Text = itm.SubItems(7).Text
    TextBox9.Text = itm.SubItems(8).Text
    TextBox10.Text = itm.SubItems(9).Text
    TextBox11.Text = itm.SubItems(10).Text
    TextBox12.Text = itm.SubItems(11).Text
    TextBox13.Text = itm.SubItems(12).Text
    'TextBox14.Text = itm.SubItems(13).Text
End Sub 


تسلم يا بطل بارك الله فيك وشكرا على وقتك 

احسنت لمساتك جميله شكرا من جديد