14-05-17, 07:16 AM
(آخر تعديل لهذه المشاركة : 14-05-17, 07:17 AM {2} بواسطة 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
مشكوووووووور جدا اخي الحبيب مصطفي وبارك الله فيك
مشكوووووووور جدا اخي الحبيب منصور زززوبارك الله فيك يارب

