الحقول المحوسبة في الداتا قريد

المثال المرفق يوضح لك كيف يمكن استخدام الداتا جريد فى العمليات الحسابيه

تقبل التحيه

WindowsApplication1.rar

أخي الفاضل

كمال النحال

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

نموذج في الاكسس = فورم بلغتنا في فيجوال بيسك دوت نت

حقل غير منضم في الاكسس = حقل أو مربع نص في فيجوال بيسك دوت نت

بارك الله فيك أخي الفاضل اسامة عبد السلام علي المثال

بعد اذنك قمت بعمل تعديل بسيط علي المثال ليقوم بجمع عمود A+B في مربع نص لكي يعطينا مجموع هذا العمود

SumInDataGridView.rar

شكرا

أخواني الاعزاء

أسامة المسيدي

محمد فؤاد تركي

أجمل تحية طيبة

أشكركم على سرعة تجاوبكم معي وبارك الله فيكم

قمت بتطبيق مثالكم على الداتا قريد فيو الخاصة بي ولاحظت الآتي :-

1. اجمالي العمود ( المبلغ ) لا يجمع.

2. لا يمكن اضافة سجل جديد على الداتا قريد.

بارك الله فيكم وسدد الله خطاكم

xz.rar

أخي الفاضل كمال النحال

1- عمود الاجمالي طرفك اسمة Tot وليس column4

2- Rows يأتي بعدها المتغير i وليس 0

3- استبدل السطر

sum += DataGridView1.Rows(0).Cells("Column4").Value()

بالسطر

sum += DataGridView1.Rows(i).Cells("Tot").Value()

xz.rar

أخي الفاضل كمال النحال

لقد قمت ببعض التعديلات علي الوضع الحالي

أنسخ الكود التالي وضعة في برنامجك كما هو وسيعمل معك ان شاء الله

Private Sub DGV_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellEndEdit
        Dim sum As Double = 0

        With DGV

            'Get the Qty Value
            Dim Qty As Object = Me.DGV("Qty", e.RowIndex).Value

            'Get Value of price
            Dim Price As Object = Me.DGV("Price", e.RowIndex).Value

            'Get Total Value
            Dim Tot As Object = Me.DGV("Tot", e.RowIndex).Value

            If Qty IsNot DBNull.Value And IsNumeric(Qty.ToString) And Price IsNot DBNull.Value Then
                Me.DGV("Tot", e.RowIndex).Value = (Qty) * (Price)


                For i = 0 To DGV.RowCount - 1
                    sum += DGV.Rows(i).Cells("Tot").Value()
                    TextBox1.Text = sum
                Next

            End If
            DGV.Refresh()

        End With

    End Sub

اخي الغالي / محمد تركي

مليون تحية طيبة وبعد،،،

أشكرك على جهودك المستمرة في خدمة ابناء الوطن العربي

كما اشكرك على سرعة المساعدة في الرد على طلبات واستفسارات جميع الاعضاء

طبقت جميع الحلول والردود وخلصت الى هذا الفورم الجميل (الجمع للصفوف والاعمدة)

Private Sub DGV_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellEndEdit
        On Error Resume Next
        Dim sum As Double = 0

        With DGV.Rows(e.RowIndex)
            'خروج في حالة خلو من المحتوى
            If .Cells("qty") Is Nothing Then Return
            If .Cells("price") Is Nothing Then Return
            'في حالة الخطأ نعلن عليه
            'محاولة القيام بعملية الجمع
            .Cells("tot").Value = Convert.ToSingle((.Cells("qty").Value) * Convert.ToSingle(.Cells("price").Value))

            For i = 0 To DGV.RowCount - 1
                sum = sum + DGV.Rows(i).Cells("tot").Value()
                TextBox1.Text = sum
            Next

        End With
    End Sub

----------------------------

مع اجمل تحياتي للجميع

xz.rar

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

الإخوة الكرام أعضاء المنتدى لا أدري أكيف نشكركم على مساعداتكم القيمة فقد أفادني جدا هذا المثال

فقط لو يمكنكم مساعدتي في مشكلة أخرى وهي

لدي BadingSource اسمه ProduitsBadingSource1 أنشأته عن طريق query باستعمال جدولين "جدول Produits " و "جدول AchatsL"
Produits1BadingSource به أربعة حقول حقل "Désignation" حقل "Quantité" حقل "Prix_Vente" وحقل "Péremption" أي تاريخ نهاية الصلاحة بالنسبة للبضائع التي لها تاريخ نهاية الصلاحية عملت Combobox به قائمة البضائع المخزنة وLabel يحدد لي كمية البضائع التي أحددها من خلال Combobox

ما أريده هو كيف بمكنني كلما حددت من خلال combobox نوع بضاعة يتم تحدد كميتها داخل label وشكرا