[العطر الرايق]

(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 يتم اكمال الاسماء المتبقيه لنهاية الداتا ويرجع للأسماء من البدايه لأكمال التكست بوكس المتبقي .
ارجو ان تكون تم ايضاح الصوره ..ولك مني جزيل الشكر والعرفان لما تقدمه .