منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
دمج صفوف من 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=39696)

دمج صفوف من Datagridview الي textbox - عبدالكريم برشدان - 14-10-21

السلام عليكم ورحمة الله وبركاته 

احتاج مساعدة بسيظة اخواني 

كيف يمكن دمج الصفوف من Datagridview الي textbox بحيث يتم قراءة الصف واضافتها 

كود :
   Dim tt As Double

           For i As Integer = 0 To DataGridView1.RowCount - 1
               tt = DataGridView1.Rows(i).Cells(0).Value.ToString

           Next
           TextBox1.Text = tt


RE: دمج صفوف من Datagridview الي textbox - ابراهيم ايبو - 14-10-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم ان كنت ترغب في جمع القيم اليك هذا الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim tt As Double
       
       For i As Integer = 0 To DataGridView1.RowCount - 2
           'To DataGridView1.RowCount - 2  اذا كان يوجد صف فارغ
           ' To DataGridView1.RowCount - 1 اذا كان لايوجد صف فارغ
           ' لجمع القيم
           tt += DataGridView1.Rows(i).Cells(0).Value
       Next
       TextBox1.Text = tt.ToString("0.00")
   End Sub
اما ان كنت تريد وضع القيم بجانب بعضها كما في الصورة استخدم هذا الكود
كود :
'لوضع القيم بجات=نب بعضها في التكست بوكس
         For i As Integer = 0 To DataGridView1.RowCount - 2

           TextBox1.Text &= DataGridView1.Rows(i).Cells(0).Value & "..."
     
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 3) ' لحذف النقاط الصلاصة من الاخير  Next