منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التنقل بين السجلات اول واخر سجل والتالي والسابق
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 

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

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

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

مع فائق الشكر والاحترام
(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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 
(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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 

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

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