منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اللي يعرف بليز لا يبخل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اللي يعرف بليز لا يبخل (/showthread.php?tid=18906)

اللي يعرف بليز لا يبخل - iFayfoy - 22-01-17

السؤال هذا عجزت أعرف احله.. ومررره بيموتني... بحثت في كل مكان لم ارى حل له...

س/ انشأنا label وظيفته يقوم عند التنقل بين السجلات اظهار رقم ترتيب السجل..

موجود الرابط التحت للتوضيح..

عند حذف سجل بقاعدة البيانات من بوتن بالفورم *طبعا يكون اسمه حذف سجل*..
يظهر بال label :

السجل -1 من -1

لييش اذا حذفنا سجل يصير كذا ؟!!


ولو نص حل بلييز Sad


RE: اللي يعرف بليز لا يبخل - محمد كريّم - 22-01-17

-1 هو ترتيب السجل كما ذكرت
فالترقيم يبدأ من 0 وليس من واحد
ربما لهذا المفهوم علاقة بالمشكلة

RE: اللي يعرف بليز لا يبخل - iFayfoy - 23-01-17

(22-01-17, 01:35 PM)محمد كريّم كتب : -1 هو ترتيب السجل كما ذكرت
فالترقيم يبدأ من 0 وليس من واحد
ربما لهذا المفهوم علاقة بالمشكلة

يعني مافي حل له نهائياً Huh


RE: اللي يعرف بليز لا يبخل - مساعدة - 23-01-17

السلام عليكم

الحل موجود، بس أنتظر تضع الكود اللي عندك الأن..

RE: اللي يعرف بليز لا يبخل - iFayfoy - 23-01-17

(23-01-17, 01:39 AM)مساعدة كتب : السلام عليكم

الحل موجود، بس أنتظر تضع الكود اللي عندك الأن..

ارفقته تحت..


RE: اللي يعرف بليز لا يبخل - مساعدة - 23-01-17

تفضل التعديل الجزئية المطلوبة
كود :
Public Sub changeposition()
        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من" & _
            Me.BindingContext(dataset1, "table1").Count

     End Sub


RE: اللي يعرف بليز لا يبخل - مساعدة - 23-01-17

استخدم BindingSource بدلا من BindingContext لتجده أسهل، شاهد هذا الكود
كود :
'إنشاء ارتباط بالمصدر
Private WithEvents BindingSource1 As New BindingSource With {.DataSource = dataset1}

'الأول
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Me.BindingSource1.MoveFirst()
End Sub

'السابق
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Me.BindingSource1.MovePrevious()
End Sub

'التالي
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Me.BindingSource1.MoveNext()
End Sub

'الأخير
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Me.BindingSource1.MoveLast()
End Sub

'التغير
Private Sub BindingSource1_CurrentChanged(sender As Object, e As System.EventArgs) Handles BindingSource1.CurrentChanged
    Label4.Text = String.Format("السجل {0} من {1}", Me.BindingSource1.Position + 1, Me.BindingSource1.Count)
End Sub