[sofiane-phy]

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

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










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

[حريف برمجة]

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

[sofiane-phy]

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

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










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

PHP كود :

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



بارك الله فيك لكن يا حبذا كل الكود مع العلم ان السطر يحتوي على 3 خلايا 


[sofiane-phy]

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

[عاشق الرسول]

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

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

[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

تحياتي