مجموع المبالغ في الاكسس للفيجول

وينكم يا جماعة الخير؟

السلام عليكم

انشئ عنصر من نوع صف Row ثم أعمل حلقة على الصفوفة الموجود في ذلك الجدول

و اختبر اثناء الحلقة for each إذا كنا على العامود الذي تود أخذ القيمة منه

فقم بإضافة تلك القيمة في متغير أخر .

شاهد النصوص البرمجية .

 Dim TotalNum As Integer = 0
		For Each row As DataRow In Me.DSMain.Employees.Rows
			If row("EmployeeID") Then
				TotalNum += CInt(row("EmployeeID").ToString)
			End If
		Next
		MsgBox(TotalNum.ToString)

بالتوفيق إن شاء الله.