منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28224)

مساعدة في كود - sofiane-phy - 14-01-19

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

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










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

RE: مساعدة في كود - حريف برمجة - 14-01-19

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

RE: مساعدة في كود - sofiane-phy - 14-01-19

(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 خلايا 


RE: مساعدة في كود - sofiane-phy - 15-01-19

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

RE: مساعدة في كود - عاشق الرسول - 15-01-19

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

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

RE: مساعدة في كود - sofiane-phy - 15-01-19

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

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

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

RE: مساعدة في كود - عبد العزيز البسكري - 15-01-19

السّلام عليكم و رحمة الله و بركاته
حاول مثلا هكذا بالفورم لود للفورم المقصود ..
كود :
      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
تحياتي