14-10-21, 02:21 PM
(آخر تعديل لهذه المشاركة : 14-10-21, 02:36 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الكريم ان كنت ترغب في جمع القيم اليك هذا الكود
اما ان كنت تريد وضع القيم بجانب بعضها كما في الصورة استخدم هذا الكود
اخي الكريم ان كنت ترغب في جمع القيم اليك هذا الكود
كود :
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اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
