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

استفسار بسيط فى تجميع الوحدات باسم الوحده - خالد كامل1 - 18-09-19 احبتى فى الله اطال الله اعماركم سعاده و خير لدى داتا جريد فيو فيها جميع المبيعات باصنافها اريد ان اجمع عدد المبيعات من صنف واحد بوحد ه معينه يعنى مثلا 60 جهاز و60 قطعه و20 كيلو هكذا باسامى الوحات فى التكست بوكس فهل من طريقه لذلك RE: استفسار بسيط فى تجميع الوحدات باسم الوحده - salahalmasry - 10-10-19 جرب الكود دة Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If DataGridView1.RowCount > 1 Then Dim iTax As Decimal = 0 Dim iCos As Decimal = 0 Dim iSales As Integer = 0 For index As Integer = 0 To DataGridView1.RowCount - 1 iTax += Convert.ToDecimal(DataGridView1.Rows(index).Cells(0).Value) iCos += Convert.ToDecimal(DataGridView1.Rows(index).Cells(1).Value) iSales += Convert.ToInteger(DataGridView1.Rows(index).Cells(2).Value) Next Label2.Text = iTax Label4.Text = iCos Label6.Text = iSales End If End Sub