[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 


استاذي الكريم

سؤال اخر بعد اذنك

بعد التعديل على السجل ما يعمل تحديث للفورم الرئيسي الا بعد اغلاقه وفتحه

حاول بعدة طرق

lst1.Refresh()

بس ما نفع

بارك الله فيك