[khaled12345]

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

برجاء المساعدة في تعديل الكود الخاص بالتنقل بين السجلات

الاول والتالي والسبق والاخير

برجاء فحص المرفقات وتعديل الكود من فضلكم 

مع فائق الشكر والاحترام

[مصطفى_ظيمة]

(14-05-17, 01:58 AM)khaled12345 كتب : السلام عليكم ورحمة الله وبركاته 

برجاء المساعدة في تعديل الكود الخاص بالتنقل بين السجلات

الاول والتالي والسبق والاخير

برجاء فحص المرفقات وتعديل الكود من فضلكم 

مع فائق الشكر والاحترام

تفضل أخى

PHP كود :

' اول سجل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position = 0
        showData(index)

    End Sub
    '  السجل التالي
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position += 1
        showData(index)
    End Sub
    '  السجل السابق
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position -= 1
        showData(index)
    End Sub
    '  السجل الاخير
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position = Me.BindingContext(ds, "Ericsson_MW").Count - 1
        showData(index)

    End Sub 


[mansoor]

  a1.rar (الحجم : 331.27 ك ب / التحميلات : 230)

[khaled12345]

(14-05-17, 04:09 AM)مصطفى_ظيمة كتب :

(14-05-17, 01:58 AM)khaled12345 كتب : السلام عليكم ورحمة الله وبركاته 

برجاء المساعدة في تعديل الكود الخاص بالتنقل بين السجلات

الاول والتالي والسبق والاخير

برجاء فحص المرفقات وتعديل الكود من فضلكم 

مع فائق الشكر والاحترام

تفضل أخى

PHP كود :

' اول سجل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position = 0
        showData(index)

    End Sub
    '  السجل التالي
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position += 1
        showData(index)
    End Sub
    '  السجل السابق
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position -= 1
        showData(index)
    End Sub
    '  السجل الاخير
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error Resume Next
        Dim ds As New DataSet
        Me.BindingContext(ds, "Ericsson_MW").Position = Me.BindingContext(ds, "Ericsson_MW").Count - 1
        showData(index)

    End Sub 


مشكوووووووور جدا  اخي الحبيب مصطفي وبارك الله فيك

---

مشكوووووووور جدا  اخي الحبيب منصور زززوبارك الله فيك يارب