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

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



ممكن طريقة نقل الاسماء من datagridview الى textbox - العطر الرايق - 28-07-21

السلام عليكم اخواني الاعزاء 

ممكن طريقة نقل اسماء من datagridview الى 18 textbox بالترتيب 
بحيث يتم التحديد على الاسم المراد نقله مع الاسماء التى بعده مباشرة بالترتيب 




RE: ممكن طريقة نقل الاسماء من datagridview الى textbox - اسامه الهرماوي - 29-07-21

وعليكم السلام...
تفضل:

كود :
'عدد الحقول بدأ من صفر
   'يعني لو 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
وأسف لو أخطأت في حاجة, دمتم بخير.


RE: ممكن طريقة نقل الاسماء من datagridview الى textbox - العطر الرايق - 31-07-21

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