بسم الله الرحمن الرحيم
السلام عليكم شباب
اليوم سؤالى عن زر السابق والتالى انا مبرمج هذا الزر عن طريق الكود التالى
PHP كود :
TextBox1.Text = TextBox1.Text + 1
لاكن هذا الكود به بعض المشاكل فا هو يقوم بزيادة الرقم لاكن ليث على حسب الارقام الموجودة فى القاعدة
انا اريد كود لعمل التالى او الثابق على حسب قاعدة البيانات واذا جاء عند رقم ليث من قاعدة البيانات تظهر رسالة خطأ
ةارجو قد اكون اوضحت المشكلة
شكرا اخى سعود على المشاركة
ممكن توضيح اكثرعن هذه الخصية
اخى شكرا لاكن هذه الطريقة انا اعلمها لاكن الفكره هى انى
عندى جدولين بينهما علاقة فا انا اريد عمل الازرار على حسب الرقم التسلسلى للجدول الكبير
التصفح حيكون على مرحلتين(اذا اردت الطريقة التي اتبعها)
الاولى ضبط كود التصفح للسجلات بالجدول الاول .....الاخرى حيكون باستعلام عن حقل فريد من الجدول الاخر ضمن حدث textchange الخاص بمربع النص الذي يحتوي هذه القيمة الموجودة بكلا الجدولين.
انت تحتاج الي استخدام Counter قيمته المبدئية تكون صفرا و في الباتون Next تبدا بزيادة قيمته بمعدل ثابت و ليكن +1 و العكس صحيح في الباتون Previous حيث تبدا قيمة Counter بالنقصان بمعدل -1 و عندما تصل قيمة Counter الي صفر مجددا عليك مثلا ان تجعل الباتون NotEnabled
في الكود االتالي ستجد فكرة بسيطة ستساعدك علي فهم الأمر و هي ليست لها علاقة ب الداتا بيز
كود :
Public Class Form1
Dim counter As Integer = 0
Private names() As String = Nothing
Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
Me.counter += 1
ShowString(Me.names((Me.counter) Mod Me.names.Length), Label1)
End Sub
Private Sub ButtonPrevious_Click(sender As Object, e As EventArgs) Handles ButtonPrevious.Click
Me.counter -= 1
ShowString(Me.names((Me.counter) Mod Me.names.Length), Label1)
End Sub
Public Shared Sub ShowString(ByVal txt As String, ByVal lbl As Label)
lbl.Text = txt
End Sub
Public Shared Function GetNames() As String()
Dim namesList As New List(Of String) From {"Ahmed", "Mohamed", "Mostafa", "Ali", "Omar", "Alaa", "Noor"}
Return namesList.ToArray
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
names = GetNames()
Label1.Text = names(0).ToString
End Sub
End Class
اولا اشكركم على اهتمامكم الرائع
^_^ اعزرونى فلم افهم لا هذا ولا ذلك
فارجو منكم مثال بسيط جدا عن الامر
هذا أبسط مثال لفهم الأمر
افتح مشروع .... ضع به باتون اسمه ButtonNext و ايضا ضع باتون اخر اسمه ButtonPrevious و اخير ضع Lable و اكتب الكود كالتالي
كود :
Public Class Form1
Dim counter As Integer = 0
Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
Me.counter += 1
Label1.Text = counter
End Sub
Private Sub ButtonPrevious_Click(sender As Object, e As EventArgs) Handles ButtonPrevious.Click
Me.counter -= 1
Label1.Text = counter
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = counter
End Sub
End Class
لكن وبما أنك تحتاج هذا العداد لكي تقرأ من Collection او DataSet لذلك عليك ان تربط هذا العداد ب DataSet او Collection كما في المثال بالمشاركة السابقة
أرجو ان تجد بالمثال ما يوضح ما تستفسر عنه
