وعليكم السلام...
تفضل:
كود :
'عدد الحقول بدأ من صفر
'يعني لو 5 نقص منهم -1 هتكتب هنا 4
'اسنخدمته مع 4 حقول من الداتا جريد
Dim counter As Integer = 3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هنا عملت لوب على الأدوات
'أي تيكست بوكس باسمه الافتراضي هيتم التعامل معاه في اللوب واحد ورا التاني
'يعني TextBox1و TextBox2و TextBox3 فقط
For Each a As Control In Me.Controls
'بتأكد من نوع الأداة داخل اللوب
If TypeOf a Is TextBox Then
''''''''''''''''''''''''''''''''''''
'بشوف رقم المتغير لو أكبر من 3 هيوقف البرنامج
If counter > 3 Then
'نهاية اللوب بحيث يوقف
Exit For
End If
''''''''''''''''''''''''''''''''''''
'طباعة ناتج الداتا جريد بناءً على رقم المتغير
a.Text = DataGridView1.Rows(counter).Cells(0).Value
''''''''''''''''''''''''''''''''''''
'بينقص كل مرة واحد عشان يجبهم بالترتيب
counter -= 1
End If
Next
'عدد الحقول بدأ من صفر
'يعني لو 5 نقص منهم -1 هتكتب هنا 4
'عشان لو دخلت بيانات تانية يشتغل معاك من أول الرقم
counter = 3
End Sub
End Class
وأسف لو أخطأت في حاجة, دمتم بخير.
(29-07-21, 04:09 AM)اسامه الهرماوي كتب : [ -> ]وعليكم السلام...
تفضل:
كود :
'عدد الحقول بدأ من صفر
'يعني لو 5 نقص منهم -1 هتكتب هنا 4
'اسنخدمته مع 4 حقول من الداتا جريد
Dim counter As Integer = 3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هنا عملت لوب على الأدوات
'أي تيكست بوكس باسمه الافتراضي هيتم التعامل معاه في اللوب واحد ورا التاني
'يعني TextBox1و TextBox2و TextBox3 فقط
For Each a As Control In Me.Controls
'بتأكد من نوع الأداة داخل اللوب
If TypeOf a Is TextBox Then
''''''''''''''''''''''''''''''''''''
'بشوف رقم المتغير لو أكبر من 3 هيوقف البرنامج
If counter > 3 Then
'نهاية اللوب بحيث يوقف
Exit For
End If
''''''''''''''''''''''''''''''''''''
'طباعة ناتج الداتا جريد بناءً على رقم المتغير
a.Text = DataGridView1.Rows(counter).Cells(0).Value
''''''''''''''''''''''''''''''''''''
'بينقص كل مرة واحد عشان يجبهم بالترتيب
counter -= 1
End If
Next
'عدد الحقول بدأ من صفر
'يعني لو 5 نقص منهم -1 هتكتب هنا 4
'عشان لو دخلت بيانات تانية يشتغل معاك من أول الرقم
counter = 3
End Sub
End Class
وأسف لو أخطأت في حاجة, دمتم بخير.
مشكووور اخوي ماقصرت نجحت التجربة 50 % بس يوجد بعض الملاحظات اريد تعديلها لم تأخدها بالأعتبار
انا اريد نقل الاسم من التحديد مثل اريد ان احدد في الداتا من الرقم مثلاً 6 بهدا يكون اول اسم في التكست بوكس رقم 6 والاسماء اللي تليه 7- 8- 9 ..الخ
النفطة الثانية مثلاً عند التحديد من الارقام الاخير مثلاً 45 يتم اكمال الاسماء المتبقيه لنهاية الداتا ويرجع للأسماء من البدايه لأكمال التكست بوكس المتبقي .
ارجو ان تكون تم ايضاح الصوره ..ولك مني جزيل الشكر والعرفان لما تقدمه .
