منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ، أرجو مساعدة فأنا مبتدئ

اريد كود مجموع ديون كل زبون لوحده مثلا في نفس السطر : رقم الزبون : 4 اسم الزبون : حمزة و مجموع الدين : 33000 لا يهم التاريخ

بارك الله فيكم جميعا

ارفق مثال للجزء المطلوب حله ،، وستجد الحل باذن الله .

(14-01-19, 03:44 PM)Amir_Alzubidy كتب : [ -> ]
(14-01-19, 01:08 PM)sofiane-phy كتب : [ -> ]السلام عليكم ، أرجو مساعدة فأنا مبتدئ

اريد كود مجموع ديون كل زبون لوحده مثلا في نفس السطر : رقم الزبون : 4 اسم الزبون : حمزة و مجموع الدين : 33000 لا يهم التاريخ

بارك الله فيكم جميعا

PHP كود :

SELECT ID,Customer_Name, SUM (Total) As Sum_Total FROM TB_Name GROUP BY Customer_Name بارك الله فيك لكن يا حبذا كل الكود مع العلم ان السطر يحتوي على 3 خلايا

هل هو صعب لهذه الدرجة الكود كامل من فظلكم و شكر الله سعيكم

(15-01-19, 09:33 PM)sofiane-phy كتب : [ -> ]هل هو صعب لهذه الدرجة الكود كامل من فظلكم و شكر الله سعيكم

أخي الحبيب
من الممكن ان تقوم بالجمع من خلال الكريستال ريبورت وهذا عن تجربة أفضل بكثير
وذلك من خلال فورملا SUM
الموجودة في الكريستال
وتقوم بعمل GROUP لاسم الزبون

(15-01-19, 09:42 PM)عاشق الرسول كتب : [ -> ]
(15-01-19, 09:33 PM)sofiane-phy كتب : [ -> ]هل هو صعب لهذه الدرجة الكود كامل من فظلكم و شكر الله سعيكم

أخي الحبيب
من الممكن ان تقوم بالجمع من خلال الكريستال ريبورت وهذا عن تجربة أفضل بكثير
وذلك من خلال فورملا SUM
الموجودة في الكريستال
وتقوم بعمل GROUP لاسم الزبون

يا أخي بارك الله فيك انا الكريستال لا يوجد لدي مع العلم انا استعمل قاعدة بيانات اكسس
ملاحظة : انا هاوي فقط لا افقه في البرمجة شيئ اتتبع فقط اليوتوب و هذا المنتدى

السّلام عليكم و رحمة الله و بركاته
حاول مثلا هكذا بالفورم لود للفورم المقصود ..

كود :

      Try

            Dim cmd_Credit As OledbCommand = New OledbCommand()

            Dim Reader_Credit As OledbDataReader = Nothing

            If Conne_2018.State = ConnectionState.Open Then

                Conne_2018.Close()

            End If

            Conne_2018.Open()

            Dim query_Credit As String

            query_Credit = " SELECT ID,Customer_Name, SUM (Total) As Sum_Total FROM TB_Name GROUP BY Customer_Name "

            cmd_Credit = New OledbCommand(query_Credit, Conne_2018)

            Reader_Credit = cmd_Credit.ExecuteReader()

            While Reader_Credit.Read

                If Reader_Credit IsNot Nothing Then

                    TextBox1.Text = Reader_Credit.Item("Total")

                End If

            End While

        Catch ex As Exception

        End Try

تحياتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sofiane-phy

حريف برمجة

sofiane-phy

sofiane-phy

عاشق الرسول

sofiane-phy

عبد العزيز البسكري